LISA TOOLKIT 
SELF-PACED TRAINING 



Preface 



This self-paced training comprises eleven self-study segments. The intent of 
these segments is to get you started designing applications with the ToolKit. 
Although the initial segments have no code associated with them, the latter 
segments include labs allowing you to experiment with actual application code. 

A single application is used as the context for this training. This is the Boxer 
application. Boxer is implemented in stages over 8 of the eleven segments. The 
result is an application that exhibits the essential features of typical ToolKit 
applications. What those are is the subject of this training. 



CONTENTS 

The following table lists the segments, labs, and the code assoc 



them: 
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- Conceptual Foundation of the ToolKit 

1 Introduction to the ToolKit 

2 What is a Document? 
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7 Moving Boxes 
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The recommended sequence of segments is to start with "Conceptual 
Foundation of the ToolKit", and then continue sequentially with segments 1 through 
11. 



PREREQUISITES 

You are expected to have read the following documents before starting this 
self-study: 

Introduction to Clascal 

Workshop Manual, especially the QuickDraw and Pascal language 
sections 



To your future as a great ToofKit application designer! 



ConceptueQ Foundation of 
the ToolKit 



The ToolKit is an otject -or jent ecf dv^elopmeril system. This means that the 
code to be executed is selected through the data, which is packaged into record-like 
constructs called objects. This is in direct contrast to a procedure-oriented system. 
In that kind of system the code to be called is fixed by the designer. The data must 
fit the called code^ rather than vice versa. 

The following discussion and slides provide a conceptual foundation for an 
object-oriented system, and how it contributes to the structure of the ToolKit. 



Conceptual Foundations 



TOCXKIT APPUCATION DESIGN 

The ToolKit is best described as a collection of interlocking hierarchies of 
classes. One special ToolKit class/ TObject^ is the ancestor of every other cless. 

As the slide: The ToolKit fitppUc&tior) hiodel shows^ a user application is a 
collection of classes as well. Specifically it is a layer of class hierarchies descended 
from those of the ToolKit. 

The user application layer may cither abut the ToolKit layer directly, or have 
one or more building block layers of insulation. In either case^ the user application 
may create subclasses from any classes in or above its layer. 

ffhs iB^'-ered approach is also illustrated in a general wa^'' in the slide: The 
ToolKit AooHcaiion Desion Model ) 

TPROCESS 

From an application's point of view, one class has especial significance - 
TProcess. An application must define its own subclass of TProcess (TAppProcess in 
the slide). It is only through that subclass that the ToolKit is able to establish 
access to the user application's code. 

The first application object created must be one descended from Tf^ocess. 
That object initiates the creation of every other object in the application. Only if the 
process object is of your subclass, will it be able to create arid reference instances 
of your classes. 

The mechanism uses the fact that all of TRrocess's methods are inherited by 
the subclass. The subclass only needs to override one method to provide access to 
the rest of the application's classes. 

THE GEhJERIC APPUCATION 

The Generic Application is the application defined by the methods of the 
ToolKit's classes. The Generic Application initiates method calls to your methods 
through objects of your classes. This is illustrated in the slide: How f^oolicaiion 
Code Qet^ Qall^ij 

The primary responsibility of the Generic Application is to route user events, 
such as mouse downs or keypresses to appropriate methods of your application. It 
processes all user-generated events directly, freeing you from having to code tedious 
input/output processing. This also insures that all i/o will be handled consistently 
from one ToolKit application to the next. 

Most significantly, the Generic Application imparts standard behavior to user 
applications. What it does specifically and how it does this is the subject of the 
"ToolKit Self-Paced Training". 
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CONCLUSION 

This concludes the conceptual foundation of the ToolKit. 

Please continue with module 1 [Introduction to the ToolKit] of the "ToolKit 
Self -Paced Training". 
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[Segment 1] 

Introduction to the Tool Kit 



Purpose of this segment: 

To introduce the Toolkit and the Generic Application. 

How To use this segment: 

This is the first segment of the ToolKit architecture self-paced series. This 
segment should be only started after having read the Introduction to Clascal 
document. 



WHAT THE TOOLKIT IS 

The ToolKit is an application development environment for the Lisa 7/7 
Office System. Simply stated, it is a package of subroutines and related design aids 
for developers of software. 

The ToolKit enables developers, you, to implement powerful, 
graphics-oriented applications fully integrated with the Lisa desktop. You use it in 
the Workshop to design applications that will run on the desktop. 

THE GENERIC APPLICATION CONCEPT 

The heart of the ToolKit is the Generic Applicatioa The Generic Application 
is a fully functional desktop application. It opens and closes documents. It creates 
new documents. It tracks the mouse. It recognizes when keys are pressed. It 
displays menus. It understands menu commands. It can splits its window into panes. 
It can even scroll back and forth through the window. It could even print if it had 
data to manage. But the Generic Application has no user data to manage. You and 
your users must add the data. 

Your job, as a designer, is to customize the Generic Application to manage and 
display the kinds of data your application will support. The Generic Application is 
conceived to enhance your productivity in implementing powerful, integrated, 
user— friendly applications. You just add what is unique to your application on top of 
the behavior supplied by the Generic Application. 

CLASCAL 

Apple enhanced the Pascal language to make possible the ToolKit's Generic 
Application. This enhanced Pascal, called Clascal, supplies a unique structure that 
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Tcx)lKit Generic Application 



Rrifit Farmat and Mnting 
done automatically 



Menu handling done automefcically 



Cut/Paste and Undo 
done easily 



Tearing off Stationery 
handled automatically 




Scrolling done 
automatically 



Open^ doic^ and resizes 

of windows done 

automatically 



Mouse and Keyboard Events 
handled easily 



couples a data type with code defining the behavior of the variables of that type. 
The structure is called a r/<?^5: 

Classes are the primary data structures in the Generic Application. With 
Clascal, you customize the Generic Application by defining new classes on top of 
those It supplies. The class mechanism greatly simplifies your implementation of 
Lisa- 1 ike applications. 

You always define a new class In terms of an existing class. Many of your 
application's classes are derived directly from those in the Generic Application. 

INHERITING BEHAVIOR 

A new class Inherits both the structure and the behavior the class it was 
descended from. You are free to add new behavior or to redefine any that was 
inherited. 

Inherited class behavior is implemented by sharing code, not copying It. A 
new class only specifies code unique to the variables of that class. 

AN EXAMPLE OF CUSTOMIZING 

Let's consider a modification to the Generic Application that you, yourself, 
might want to make. 

You want to Implement a document security mechanism. You desire to 
encode data upon closing a document, and decode data upon opening the document. 
You start by defining a new class from the Toolkit class, TDocManager. 

TDocManager supplies two behaviors of immediate interest to you: Open and 
Close. In your new docManager class you need to simply redefine Open and Close. 
The rest of TDocManager's behaviors will be Inherited by your new class. 

You could rewrite the entire code for Open and Close to include your 
encryption mechanism, but this is both difficult and unnecessary. For one thing, you 
may not have access to the sources for either Open or Close. For another, Clascal 
offers a better way to refine the two. You can reference the inherited Open and 
Close from within your new Open and Close, respectively! 

Here is how it works. When one of your users selects c/oseirom the 
document's File/Print menu, the Generic Application calls the current docManager's 
Close code. Since the current docManager is yours. It uses your Close. First, your 
Close tells the document's data to encrypt itself. T/?/s /$ easy if each type of data 
is a ciass. Next your Close calls the Close for TDocManager, which Is Generic 
Application code. In this fashion you have modified the Generic Application's 
behavior without having to know any details of the code. Not many development 
systems support that/ 

To Implement Open, you first call TDocManager's Open code, before 
commanding your data to decode Itself. Your Open is called automatically whenever 
the user selects open^rQn\ the File/Print menu of one of your application's 
documents. 
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THE MOST GENERAL CLASS - TObject 

Often a new application class will be connpletely unrelated to any in the 
Generic Application. Consider a class that describes the behavior of a clock, for 
instance. To create this kind of class and others, the Toolkit supplies a base class, 
TObject. TObject Is the ancestor of every class in the Generic Application. 

The class TObject provides the basic behavior needed by the instances oi any 
class. The behavior inherited from TObject allows each instance to: duplicate 
itself, free up any nnennory it uses, read its value from a character stream, and 
write its value to a character stream. 



TOOLKIT APPLICATION DESIGN 

A ToolKit application is fundamentally a hierarchy of classes. You build up 
the application class by class, sometimes redefining, sometimes enhancing generic 
behavior. Effectively you layer the new onto the old. 

This layering technique Is made more powerful by the 6r7/7mechanlsm of Lisa 
Pascal (which inciudes Ctascal). Units enable your application to use previously 
compiled classes and data types. There is no need to recompile them into your 
application. 

A new application is composed of a four line main program and one or more 
units referencing ToolKit units. Within each unit is a hierarchy of classes and their 
implementations. 

With a suitable class hierarchy you can maximize the code shared among 
diverse data types. A well -designed hierarchy can form the base for future 
applications/ as well. 

The Generic Application is such a hierarchy. Its classes supply the 
fundamental behavior of Lisa— like applications. These capabilities include: resizing, 
scrolling, and updating windows; opening, suspending, and closing application 
documents; automatic printing of text and graphics; previewing what is to be 
printed; simplified use of menus and the mouse; and cutting/pasting of information 
between applications. 

BUILDING BLOCKS 

Besides the Generic Application, the ToolKit also encompasses application 
building b/ocics Each building block Is a unit containing an integrated set of classes. 
Building blocks provide specialized application features such as: text editing and 
formatting, graphics editing and design, data inquiry dialogs, and international 
formatting. 

You can layer building blocks on top of the Generic Application and underneath 
your own units. Building blocks enable you to include just the capability you need and 
nothing more. 
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The TenlEit Application Design Model 
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In addition to building blocks, the ToolKit also supplies: a high-level debugger 
specially tailored for ToolKit applications, autonnated tools for compiling 
app I i cat ions'- and installing them onto the desktop, and utilities for managing 
numeric, string, and graphics data. 



OVERVIEW 

The ToolKit is a power tool for application design. Its Generic Application 
substantially reduces the time needed to create Lisa— like applications. 

Harnessing the power of Clascal, the ToolKit maximizes the code shared 
among your data types. In the multiple process environment of the Lisa, the ToolKit 
enhances system performance by sharing Generic Application code among 
concurrently executing applications. 

The components of the ToolKit include: 

- the Generic Application 

- application building blocks 

- high-level symbolic debugger 

- automated tool for compiling applications 

- desktop installation tool 

- utilities for dynamic allocation/deallocation of data 

- classes and procedures for data conversion and management 

- classes and procedures to support large documents 
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[Segment 2] 

What is a Document? 



Purpose of this segment: 

To introduce documents and their structure as a foundation for understanding 
the function of the Generic Application. 

How to use this segment: 

This is the second segment in the ToolKit architecture self-paced series. 
This segment should be started after the segment "Introduction to the ToolKit". It 
should be completed before moving on to "Creating from the Generic Application". 



INTRODUCTION TO DOCUMENTS 

Rarely do end users invoke desktop applications directly. They use them 
indirectly through documents. The structure of the Generic Application is in large 
part due to the role that documents play on the Lisa desktop. 

Lisa documents are special desktop files that you can open, work on, and put 
away when done. As with other items on the desktop, documents are represented by 
icons. The document's name is displayed below the icon. 

Every document is associated with exactly one application. Typically a 
document contains data entered during one or more sessions. The document's 
application determines how this data will be entered, organized, and displayed as 
information. 

A given application may have many documents associated with it. Documents 
of the same application are represented by the same icon. Each document, of course, 
can have its own name and its own data. 

The data contained within a document can be text, graphics, tables, or any 
combination thereof. Different applications are able to handle different forms of 
data. A spreadsheet, for example, excels at processing data in tables. A word 
processor on the other hand Is happiest when working with text, yet may also 
accommodate graphics. 

As for names, each document has two of them. One appears below the 
document's icon on the desktop. That name unless it is "Untitled" \% supplied by the 
user. The other name is not displayed. It is supplied by a built— in desktop tool 
called the Desktop Manager or Filer. This name associates the document with its 
application, distinguishes it from all other documents on the same disk, and helps the 
operating system locate the files that comprise the document. 



2-1 



Documents can vary widely in size. A new graphics document will be virtually 
empty. A large word processing document may contain hundreds of pages worth of 
information. ' The Too/Kit /s currently able to support a maximum of 768K bytes in 
a RAM-based document This can translate into anything from a 163 page 
single-spaced "paragraph" to a double-spaced manuscript exceeding 800 pages. By 
overriding TDocManager, larger disk-based documents can be implemented. 

Documents are subject to the whim of their users. Their contents can be 
changed; their displayed names can be modified. They can be created or destroyed, 
opened or closed, ail at the discretion of the user. 

As far as the Desktop Manager is concerned, a document Is composed of its 
data and some related structure. A Toolkit document for instance, contains user 
data as well as all the control information needed to manage it intelligently on the 
desktop. This additional information ensures that the user interface to the data will 
be simple, straightforward, and consistent. 

Let's follow a moment in the life of an Icon to help shed some light on the 
nature and structure of Too IK it documents. [Warning: this story may be offensive 
to hard— core engineers.] 

A Moment in the Life of an Icon 

Imagine, if you will, that you are back at the office. You are sitting in your 
private (five guys around you, and they call it private!) cubicle preparing to do some 
useful work on your Lisa. You bring up the Office System, and grab a cup of coffee 
while it is setting up. Ah! The coffee is particularly good this morning. You grab 
your mouse and send your cursor in search of the icon you clicked on last week. 
There! There it Is, "Memo 1073" (you like to produce memos). A quick double 
click on "Memo 1073" and things really start to happen. 

A window materializes, and the icon disappears. It doesn't even appear that 
the icon has left a shadow this time. Ah well, nothing to break your heart. You 
wait a few seconds, and presto, the window fills up with words and pictures. There 
are some dark black lines splitting up your window. You've tried to get rid of them, 
but they just won't go away. After that great cup of coffee, though, they don't seem 
to bother you as much now. Finally! The name In the top bar of the window has 
changed to inverse video. And, next, the cursor makes its debut. You start typing 
and mousing merrily away. You are hoping to finish this memo by tonight. 

Eleven AM arrives, and you are still busy on "Memo 1073". Your boss walks 
in. Looks like she has something on her mind. Good god, you forgot to turn in your 
monthly status report! But first, better put the memo away. Why concern her with 
the deal you're trying to make - with her boss. You double click on the icon in the 
top bar of the window; and heave a sigh of relief as the evidence quickly disappears. 
"Hi Mary! Bet you want that status report now, huh? Yes, I was just ..." The look 
on her face tells you she's heard this all before. You do derive some comfort, 
though, that "Memo 1073" is a mere icon again. Amazing how those little icons can 
hold so much information! But the thought fades quickly as your boss clears her 
throat.... 
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THE INTERNALS OF A DOCUMENT 

The whole system is rather ingenious^ when you think about it. The window 
defines where the docunnent data will be displayed. The window is also apparently 
able to scroll over the data if it can't all be displayed at once. 

With Sonne docunnents you can even have the same data presented in several 
different ways, simultaneously! The window will be split to display the different 
representations. For example^ LisaGraph documents present their data as both a 
table of numbers and a araoh. 

Each representation is framed by it© own border. The border belongs to 
something calied a panel Each panel provides a unique view of the document's data. 
The window is the owner of the panels. 

Every panel has at least one pane. Usually, there Is one pane per panel. If the 
user has split the view, there will be more than one pane. It is really through the 
pane that a document's data is displayed. 

Scrolling within a pane allows you to see different portions of your document. 
The total of everything that you could see through that pane is called the Wew, At 
any one time the pane displays only part of the view. The effect is sort of like 
looking at the scenery through the window of your car. As the car moves what you 
actually see changes. But the total landscape is always there. The view, as with the 
pane, is owned by the panel. 

In some panels of some applications, panes can be split (producing more pain). 
This is done by moving one of the skewers (the stubby, black bar at the end of a 
panel's scroll bar). Moving the skewer splits both the pane and its rectangle on the 
view. If there is a scroll bar, it, too, is split to allow each of the newly created 
panes to focus on a different portion of the view. For example, a top pane could 
display the start of a document while a bottom pane displays the end. 

What about the data? The data is typically associated with the view. Yet, if 
different representations of the data are to be displayed it is more sensible to keep 
the data with the window. It is each view, though, that determines how the data is 
represented. The form of the data, of course, varies with the application. 

So far you have seen that documents contain not just data, but also objects 
such as: windows, panels, panes, scroll bars, scrollers, and views. In addition, there 
are still other objects that play a role in the document. 

Users nearly always want to add to or modify a document's data. Modifying 
data requires that two more objects be part of the document: se/ect/ons and 
commands. 

A selection keeps track of that part of the data the user desires to change. 
Typically, the user uses the mouse to indicate the data to be changed. This may be 
data that is to be replaced (such as a paragraph), or an insertion point where data is 
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to be added. A selection always exists, even when no data is to be changed. The 
selection beloegs to the panel. Each panel has a selection. 

A comnnand describes how to make a specific change on the data refered to by 
the selection. Typically, a connnnand is created when the user chooses an action 
fronn a nnenu. For exannple, one of the menus of a graphics editor may include a 
rotate BcX'ion. It is up to the command to perform the rotate action correctly 
upon whatever graphic object was selected. Only one command is active at any me 
time. The currently active command belongs to the window. 

You have now been introduced to the major components of a document. Here 
is a diagram of what the inside of the document might look like. The order of the 
objects in memory may vary from the diagram; what is fixed are the inter— object 
references shown by the arrows. 
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Organization of a Document 
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HEAPS 

As you have seen, a document is composed of a window, panels, panes, views, 
selections, commands, and data. What you may not know is that this data is grouped 
together into something called a heafx 

A heap is a contiguous span of random-access memory (RAM) where data is 
stored. The actual size of a heap may vary during execution. All references are 
relocatable within the heap. This means that the application can access data within 
the heap without knowing where it is actually stored. This allows the heap manager 
to dynamically organize heap space in the most efficient way, without disrupting an 
application's ability to access a document's data. 

The language of the ToolKit, Clascal, provides a special feature to refer to 
data within heaps. This feature is called a handle. A handle is a double indirect 
reference to data, The application refers to a document's data through handles. The 
handle provides a reliable reference to data whose actual address (within the heap) 
may vary. 

Heaps are associated with one or more logical data segments. The logical 
data segments provide an address space for the data. It is often useful to have the 
address of a piece of data, but since the data can be relocated at any time, it is 
much safer to use a handle. Below is a diagram illustrating the relationship between 
a handle and the heap data it refers to. 
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A Docximent and its Heap 
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A document contains a heap and a ^k^ument preluc^. 

The heap contains the deita and the objects needed to 

manage and display' the data. 
The prelude contains the intormation needed to initialize 

the heap from the document's disk file. 



PUTTING A DOCUMENT AWAY 

The end user can put a docunnent away using a connmand in the File/Print 
Menu. The document heap (holding the view, the panel the window, and whatever 
else had a hand in nnanaging your docunaent's data) is copied into a file. Then the fi 
gets closed. Finally, the window frame goes away, leaving an icon as the sole 
reminder of the document. 



To assure that a document can be closed and opened at any time, all the state 
of the document must be in the heap between commands. In particular, no state 
should be in global variables. Some applications may keep part of the document 
state in files they manage. An application doing so is responsible to close/open those 
files when the user puts away/opens the document. 



SUMMARY 

A document is a user-originated set of files used with a specific application. 
In addition to data entered by the user, a document also contains the objects needed 
to supply a Lisa-like user interface to the data. These objects control how the data 
is displayed and how modifications are performed. 

Opening a document brings up a window. The window displays at least one 
panel. The panel displays one or more panes. Each pane displays a portion of the 
view associated with a particular panel. The view determines how the data is 
represented on the screen. Since the view is typically larger than the display area, 
the pane can scroll over the view. There may be several panes, each displaying a 
different area of the view. 

Closing the document saves the data and the objects that manage and display 
the data. Thus, the document contains all the information needed to restore its 
state when later reopened. 
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[Segment 3] 

Creating from the Generic 
Application 

(Getting Started) 



Purpose of this segment: 

1) To Identify the process, docManager, and window methods that you must 
override to give the ToolKit access to your application's code. 

2) To survey the roles of the process, docManager, and window in your 
documents. 

3) To explain how the Generic Application calls application code in response 
to user events. 



How to use this segment: 

This segment includes a tutorial and a lab. You should read the tutorial and 
answer the questions, before proceeding to the "Getting Started" lab. 

You should start this segment after the "What is a Document?" segment. You 
should complete this segment before proceeding to the "BlankStationery" segment. 

Terms assumed: 

Generic Application, process, window, view, panel, pane, selection, 
command 



INTRODUCTION 

The way a ToolKit application works can be stated quite simply - The 
Generic Application calls application code in response to user events This 
"application code" is used loosely, since it includes both overldden and inherited 
methods. 

The basic function of the Generic Application is to do as much for you as 
possible. This includes taking care of standard document behavior: printing, scrolling, 
and opening, closing, and resizing windows. But, often, it needs to call your code to 
do so (e.g. drawing a view). 
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The key to enabling the Generic Application to call your code Is to initialize 
Its data struQtures so that they refer to your objects. Your classes' methods can 
then be called through those objects. 

The following sections describe how to initialize the Generic Application to be 
able to access your code through your objects, 

GETTING STARTED 

Every ToolKit application starts by creating a process object. It is fronn the 
process that every other object gets created In a new docunnent. 

The process is created in the nnain progrann block of the application. As you 
can see from the sample below, the main program exists primarily for creating. 
Initializing, and launching the process. 
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nMNIRAH HySanple; 

USES 

(The following units contain ToolKit procedures and classes) 

{$U UObject } UObject, {allocation, deallocation, collection classes) 

{$U QuickDraw > QuickOrati, {* needed by UDraw *) 

<$U UOray > UOrait, {internal representation to screen conversions) 

{$U UABC > UABC, {the classes of the Generic Application) 

{This unit contains the classes (interfaces and inplenentations) of 
the sample application) 

{$U UtlySanple > unySanple; 



BE6IN 

{One of the application classes is THyProcess. It is defined as: 
TYPE 

TnyProcess = SUBCLASS OF TProcess 

END;) 

{process is a global object reference variable allocated by UObject. 
It is defined as follows: 

VAR 

process: TProcess;) 

process := THyProcess. CREATE; 

process. Connence; {initializes global variables related to process) 

process. Run; {enters the Generic Application event loop) 

{M The first event queued when a new document is opened is a fileOpen 
event !!) 

process. Conplcte (TRUE); {cofipletcs with an "all is well" indication) 

END. 
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The first object that the process creates is a docManager. The next object 
created is the window. It is created by the docManager; and is the first object 
belonging properly to the docunnent. 

The window bears the responsibility for creating nnost of the other document 
objects. These include: the selection, the view, and the other display objects. 

Below are the nr^ethods that nnust be overridden to create the docManager and 
window objects from your classes. 

{creates a new process} 
FUNCTION TProcess. CREATE: TPiocess; 

{returns a neuly created docnanager) 
FUNCTION TPiocess. NeuOocHanagerCvolufiePTefix: TFilePath; openAsTool: BOOLEAN) 

: TDocKanager; 



{creates a new docnanager) 

FUNCTION TDocNanagei. CREATE (object: TObject; itsHeap: THeap; itsPathPieFix: 
TFilePath) 

: TDocNanagei ; 

{returns a newly created window) 
FUNCTION TDocNanagei. NewUindou (heap: THeap; wigrlD: THlndoiiID): TtfindOM; 



{creates a new window) 

FUNCTION TUindou. CREATE (object: TObject; itsHeap: THeap; vngilO: TUindowIO): 
TUindow; 



3-4 



L5[jDll^ [i(lte®©ini [0)®©aoooD®inill ©!oj@@a@ 



view 




View 



panel 



panel 



selection 



4 panes window 




< 




panels selectPanel 



window 



panel y 



f 

\ selectWi 




View 



selection 



window 



lectWindow 



view 



pane 



lastCmd 



command 



image 



KE ■ ! fieidName 



A can access B through fieidName 



ciEi:) 



fieidName iTSt 



i^CED 



>4can access B through an element of the list fieidName 



The method feelow creates the Initial display objects (panel pane, and view) and the 
selection. This, along with the CREATE nnethod below, nnust be overridden to 
create a view object from your TView subclass. 



(initializes the document blank stationery) 
PROCEDURE TtfindowBlamcStationery; 



{creates a new view) 

FUNCTION TViev. CREATE (object: TObject; itsHeap: THeap; itsPanel: TPanel; itsExtent. 
LRcct; itsPiintlfanager: TPrintHanagei; itsDfltnargins: LRect; itsFitPagesPerfectly: BOOLEAN; 
itsRes: Point; itsHainviev: BOOLEAN): TVie«; 

BlankStationery plays a major role in Initializing the data structures of the Generic 
Application. The next segment "BlankStationery", covers this in nnore detail. Yet, 
these so-called "data structures" are actually a network of cross-referencing 
objects. What BlankStationery does is to create view, panel, pane, and selection 
objects which cross-reference each other and the window. 

The key to having the Generic Application call your code is to insure that the 
view (and, later on, the selection) is created from one of your classes. 



LINKS AMONG DOCUMENT OBJECTS 

The slide L inks Between Document Objects depicts the linkages among 
document objects. They include: the view, the panel, the pane, the window, the 
selection, and the command. All of the objects, except for window and command, 
are created by the window's BlankStationery method. 

A detailed account of the order of objects created and linked by 
BlankStationery follows. 

1) The panel is created as an instance of TPanel. 

2) An empty list for the panes is created. 

3) An initial pane is created, and appended to the list. 

4) The panel appends itself to the window's list of panels. If the panel 
is the first to be appended, it also becomes the select panel for the 
window. [The select panel is discussed in the segment on selections.] 

5) The view is created as an instance of a subclass of TView. 
5) The panel points to the view. 
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The pane points to the view. 
The view points to the panel. 
7) An instance of TSelection (the initial selection) is created. 
The panel points to that selection. 
The selection points to the view and to the panel. 



THE STARTING THREE: Process. DocManager, Window 

These three objects get your application started; and they play other 
innportant roles as well. 

process 

The process is the heart of the application. There is one and only one process 
in any ToolKit application. 

The process creates one docManager to be responsible for each document. The 
process, while active, is also owner of the clipboard and the nnenu bar. 

The prinnary purpose of the process is to direct user events (such as nnouse 
presses, key downs, nnenu and file events) to the appropriate recipient. Possible 
recipients are: 

the window of the current docunnent, 

the dialog box of the active document, 

the docManager of the current document, 

the selection of the select panel of the current window, 

the menu bar, 

or the clipboard. 

docManager 

The primary functions of the docmanager are: to manage the memory used by 
its document, and to respond to all file events affecting the document. 

There is exactly one docmanager for each document owned by a process. The 
docmanager Is responsible for opening, setting aside, resuming, and closing the 
document. 

If the document is newly created, the docmanager allocates space. It then 
tells the document's window to execute its BlankStatlonery method to create the 
initial display objects. 
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window 

Each document has a window. Active docunnents nnay have an additional 
window called a dialog box. The window defines the area that the document occ^jpies 
on the desktop. 

The window transmits mouse events received from the process to one or more 
of its panels. From the panel these events reach the current selection or view. 



USER EVENTS 

The heart of the Generic Application is an event loop that identifies and 
routes user events. Your application's code will be called to process some of tlhese 
events. The slides. The Flow of User Events, indicate some of the methods in your 
code that could be called. 

User events are queued up by the Window Manager and the Filer. 

The Window Manager routes mouse downs and key presses to the 
appropriate application. It sends update events to applications whose 
documents become exposed on the desktop. Activate events are sent when 
the user clicks into an inactive window or clicks out of an active one. 

The Filer sends file events, such as fileOpen or fiieClose, to the 
appropriate application. 

Most user events are handled automatically by the Generic Application. These 
include: file, menu (mouse presses on the menu bar} update, and activate events. 
Those that remain, the mouse and key events, are intended to be handled by yoyr 
application. 

After processing an event the Generic Application does something very 
important. It updates the window. A window update refreshes and redraws tt^e 
document's display as needed. It is during the update that your application's diispiay 
code is called. The update tells your view to draw, and your selection to highlight. 

TRUE NATURE OF THE GENERIC APPLICATION 

Your application does not call its own display code. The Generic Application 
does it for you, automatically. This Is just one many instances when your code is 
called automatically. Such is the nature of the Generic Application. 

Unlike other programming environments, where you determine when yoyr code 
will be called, the ToolKit is quite different. Mastering the ToolKit boils down to 
knowing how and when the Generic Application will call you. 

In the accompanying diagrams, "Window" represents your subclass of TWindow, 
while "TWindow" means the generic class definted in the ToolKit. These diagrams 
are conceptual. A more detailed diagram is found on the Flow of Control Poster. 
The ultimate authority is, of course, the ToolKit source code. 
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Questions: 

1) What is the relationship between the window and your view? 
What role do updates play? 

2) Which is created first - the docManager or window? Why? 

3) Which is the first application object to receive events? 

4) Where are /77^^5'i'^^>v/75' routed? 
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Getting Started Lab 



Purpose of the lab: 

1) To provide hands— on experience connpiling and installing a simple ToolKit 
application. 

what you are about to do: 

1) Review the "Code connponents of a ToolKit application'*. 

2) Scan the listings for the four files in the sannple application base. These 
are included in the appendix^ "Code Sannples for this Segment". 

3) Copy the following files onto your prefix volume: 

UIBoxer.TEXT 
U1Boxer2.TEXT 
m Boxer. TEXT 
PIBoxer.TEXT 

4) Compile, install, and run the sample application, IBoxer. Use 41 as the 
tool number. Appendix A (turn page) describes how to compile and install 
a ToolKit application. 

a) Split the panel into panes. 

b) Scroll to the end of the view. 

The materials you will start with: 

1) The code listinqs for the sample application base [see "Code Samples for 

this Segment f 

2) The following application source files on your disk (or diskette): 

UIBoxer.TEXT 
U1Boxer2, TEXT 
rUBoxer.TEXT 
PIBoxer.TEXT 

3) The ToolKit (must be installed on your disk). 
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CODE COMPONENTS OF A TOOLKIT APPLICATION 

The code for a ToolKIt application is typically partitioned into four files. The 
file naming conventions, below, use YourApp^ the nanne of the application. Typical 
contents of each of the four files is included. 

The main program outer block (This file is named M YourApp.lE/J ). 

This file lists the units used, and includes a 4 line outer block. One 
of the units must be U YourP^'^, 

The application interface part (This file is named U YourAppl^y^ ). 

This file is the interface for the Pascal unit, UYourApp. This file 
has an include line for the file UYourApp2.TEXT. 

The application implementation part (This file is named U YourApfSLJE/^ ). 

This file is the implementation for the unit, UYourApp. 

The phrase file (This file is named P YourAppJ^^ ). 

This file contains the application's menus, warnings and error 
messages. 



Question on the lab: 

You compile a new ToolKit application named MyApp. You create three 
files named: MMyApp.TEXT, UMyApp.TEXT, and UMyApp2.TEXT. You 

make and install the program correctly, but it doesn't run. What is the 
problem? 
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Appendix A: 
Building and installing a ToolKit Application 



Building an Application 

To build a ToolKit applicatioa you use the MAKE exec file. This Is supplied 
with your ToolKit system files. 

The MAKE exec command line accepts several arguments. For most 
applications you need to supply only the first two: the application name, and the 
tool number. For example, the Workshop command line below will build an 
application named 1 Boxer and save the object file as Tool 41 on the desktop. 

R<riAKE(1Boxer,41) 

The above command causes MAKE to check for any changes in any of the 
following four files since the last build: 

MIBoxer.TEXT 

PIBoxer.TEXT 

UIBoxer. TEXT 

U1Boxer2.TEXT 

Since^ the creation dates of the various files are checked to determine what needs to 
be recompiled, make sure that your clock is set correctly. 

The th/rd argument to h^lAKE rs the volume to put the tool on. The default is 
the prefix volume. The final four arguments specify any additional units or building 
blocks that your application uses. The order of these units is critical. With the 
exception of the application unit, a listed unit must preceec any that refer to it . 

When you build your application for the first time, be sure to delete any old 
copy of the tool (eg. {T41}0BJ ) and the phrase file (eg. {T41}PHRASE ). This forces 
the exec file to relink your application. 
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instailing aift application 

Once you have built your application, you nnust install it on the desktop with 
the INSTALL program. Just run the progrann and answer the dialog. 

For example, if your application was linked as {T41pBJ, and you wish to 
install it as the Sample tool on PARAPORT, then you would supply the following 
responses to the dialog: 

INSTALL prowpt your response 

device to install tool on: PARAPORT 

tool id number: 41 

tool creates documents? [press RETURN (for yes)] 
tool handles more than one 

document at a time? [press RETURN (for no)] 
change initial stationery 

rectangle? [press RETURN (for no)] 

tool name: Sample 
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File/Print 

Set Aside EverythinglOl 

Set Aside*102 

Save & Put AuaylOS 
Save & Cont inue«107 
Revert to Previous VersionlOS 

Format for Printer . . . •lOA 

Print . . . n05 

Honitor the Printer . . . nOS 

100 

Buzzwords 

Set Aside TOocument T*109 



9 Rug 1984 IS: 53: 12 MIBQXER. TEXT 



r 

PROGRAM niBoxer 
USES 



($U UObject ) UObject, 

{$IFC libraryV«r$ion <• 20) 
J$U ur ' 
{$£NDC} 



{$U UFont) UFont. 





SU QuickDnu 
$U UDrau 
$U UABC 


QulckDrau, 
UOrau, 
; UABC, 


($U UlBoxsr 


) UlBox«r. 


CONST 




phrtsuWerslon - 1; 


BEG I 


M 





process : ■ TBoxProcess. CREATE; 
process. Commence(phraseV/8rsion); 
process. Run; 
process. Compl ete( TRUE) ; 



END. 



^^J(llw <juiiiipuUi/ 
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(LisaBoxer box-draujng application for the Tool Kit} 
Copyright 1985, Apple Computer Inc.) 

UNIT UlBoxer. 

INTERFACE 



USES 



$U UObject) 
$U OuickDrau} 
'$U UDrau} 
'$U UABC} 



UObject, 
OuickDrau, 
UDrau, 
UABC; 



TYPE 



TBoxProcess ■ SUBCLASS OF TProcess 

{Creat ion/Dest ruct ion} 
FUNCTION TBoxProcess. CREATE: TBoxProcess; 

FUNCTION TBoxProcess. NeuDochanager( vol umePrefix: TFilePath; openAsTooI: BOOLEAN) 

: TDocHanaser, OVERRIDE; 
END; 

TBoxDocHanager > SUBCLASS OF TDocHanager 

{Creat ion/Dest ruct Ion] 
FUNCTION TBoxOocManager. CREATE( object; TObject; itsHeap: THeap; ItsPathPref ix: TFilePath) 

: TBoxDocHanager; 
FUNCTION TBoxDocHanager. NeuUindou( heap: THeap; umgrlD: TyindouID): TUindou; OVERRIDE; 
END; 

TBoxUindou - SUBCLASS OF TUindou 

{Creat Ion/Dest ruct ion] 

FUNCTION TBoxUindou. CREATEC object: TObject; itsHeap: THeap; itsUmgrlO: TUindouID): TBoxUindou; 

{Document Creation) 

PROCEDURE TBoxUindou. BlankStat ionery; OVERRIDE: 

END; 

TBoxVieu - SUBCLASS Of TV leu 

{Creat ion/Dest ruct ion) 

FUNCTION TBoxVieu. CREATE( object: TObject; itsHeap: THeap; ItsPanel: TPanel; itsExtent: LRect) 

: TBoxV ieu; 

{Display} 

PROCEDURE TBoxVieu. Drau; OVERRIDE; 
END; 

IMPLEMENTATION 

{$1 UlBoxer2. text) 
{UlBoxer2) 

METHODS OF TBoxProcess; 

A FLWCT ION TBoxProcess, CREATE: TBoxProcess; 

A BEGIN 

{$IFC rTracelBP(ll);{$ENDC} 

SELF : • TBoxProcess( TProcess. CREATE(NeuOb ject(mainHeap, THISCLASS), mainHeap)); 

{$1FC nr*ce)EP; {$ENDC) 
A END; 

A FUNCTION TBoxProcess. NeuDocManager( vol umePrefix: TFilePath; openAsTool: BOOLEAN): TDocManager, 

A BEGIN 

{$IFC nrace)BP(ll);{$ENDC) 

NeuDocManager :■ TBoxDocHanager. CREATE( NIL, mainHeap, vol umePrefix); 

{$IFC nrace)EP; {SENDC) 
A END; 

END {Methods of TBoxProcess); 

METHODS OF TBoxDocHanager, 

A Fl»<CTION TBoxDocHanager. CREATEC object: TObject; itsHeap: THeap; itsPathPrefix: TFilePath) 

: TBoxDocHanager; 
A BEGIN 

fSIFC fTr»ce}BP( 11): {SENDC) 
IF object - NIL THEN 

object :- NeuObjectf itsHeap, THISCLASS); » ^ ,. ^^ 

SELF :- TBoxDocManagert TDocManager. CREATEC object, itsHeap, itsPathPref ix)); 
{$1FC nrace)EP; {JENDC} 
A END; 

A FUNCTION TBoxDocHanager. NeuUindou( heap: THeap; umgrlD: TUindouID): TUindou; 

A BEGIN 

fSIFC nrace)BP(ll);{$ENDCl , 

NeuUindou :- TBoxUindou. CREATEC NIL, heap, utngrlD); 

{$IFC n race) EP; {SENDC} 
A END; 

END {METHODS OF TBoxDocHanager); 



METHODS OF TBoxUindou; 
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FUNCTION TBoxUindou. CREATE( object: TOBject; itsHeap: THeap; itsUmgrlD; TUindouID): TBoxUindou; 
BEGIN 

f$IFC rrrace)BP(10);{$ENDC} 

IF object • NIL THEN 

Ob ject : - NeuObject( jtsHeap, THISCLASS); 

SELF :. TBoxWindoufTUindou. CREATE( object, ItsHeap, itsUmarlD, TRUE)); 

{$IFC nrace}EP;{$£NDC) 
END; 

PROCEDURE TBoxUindou. BlankStatlonery; 
VAR vieuLRect; LRect; 

panel : TPanel ; 

boxVieu: TBoxVieu; 

BEGIN 

{$IFC nrace} BP(IO); {JENDC} 

(set the vieu extent LRect} 
Set LRect (vieuLRect. 0, 0, 5000. 5000); 

panel :• TPanel. CREATE( NIL, SELF. Heap, SELF, 0, 0, 

[aBar, aScroll.aSpl it], [aBar, aScroll, aSpl it]); 



{initial ize the boxVieu} 
L(NIL. SE— ■• 



boxVieu :- TBoxVieu. CREATE(NIL. SELF, Heap, panel, zeroLRect); 
{$IFC fTrace} EP; {SENDC} 
END; 

END {Methods of TBoxUindou}; 



METHODS OF TBoxVieu; 

FUNCTION TBoxVieu. CREATE{object: TObject; itsHeap: THeap; itsPanel: TPanel; itsExtent: LRect) 

: TBoxVieu; 
BEGIN 

1 $ IFC n race) BP( 11) ; { SENDC} 
object - NIL THEN 
object : « NeuOb ject( itsHeap, THISCLASS); 

SELF :« TBoxVieuf itsPanel. NeuVieu( Ob ject, itsExtent, NIL, stdMargins, FALSE)); 
{$1FC nrace}EP; {SENDC} 
END; 



sr 



PROCEDURE TBoxVieu. Drau; 

BEGIN 

{$IFC nrace}BP(10);{$ENDC} 
{$IFC nrace}EP;{$ENDC) 

END; 



END {t€THODS OF TBoxVieu}; 



END. 
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[Segment 4] 

BiankStationery: 
The View of a New Document 



Purpose of this segment: 

1) To describe how a new document is initialized. 

2) To Introduce the coordinate system of th^ view. 

3) To describe how a document's contents are spatially arranged and 
displayed. 

How to use this segment: 

This is the fourth segment in the ToolKIt architecture self-paced series. This 
segment should be started after the segment "Creating from the Generic 
Af^lication". It should be completed before moving on to the "Intro to Boxer" 
segment. 

THE VIEW OF A NEW DCXiUMENT 

Each application initializes new documents in its own way. The document's 
display Is drawn within the window by the view. The view generates the displayed 
representation of a document's data. 

The initial views of new documents can vary widely. For example, tearing off 
a sheet of LisaWrite paper yields a completely blank view. Tearing off a sheet of 
LisaDraw paper displays a drawing palette and a grid. 

In each of your Toolkit applications, you will need to determine how new 
documents are to be displayed. This segment presents a BiankStationery boilerplate 
to help you do so. 

BLANK STATICM^RY 

The objects in a Toolkit— based document are Clascal objects. As such each 
object has a class. The Generic Application contains the superclasses for many of a 
typical document's classes. For instance, window objects are of the Generic 
Application class, T Window. Views are of the class, TView. 

A special method of the window, BiankStationery, is called by the Generic 
Application to initialize the view of a new document. Your application will subclass 
TWindow and override BiankStationiery to initialize its documents. 
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INITIALIZING A DOCUMEhfT 

the user interface 

A user tears off a sheet from an application's stationery pad. An icon named 
"Untitled" is displayed on the desktop; the user may edit the name. The user opens 
the Icon and the application proceeds to create and initialize a new document. 

The window frame is painted for the new document. If the application that 
owns the stationery is not already running, it is started at that time. 

the internals 

A process QlbiecX Is created when the application starts. Once it has 
initialized itself, the process creates a itocMmgerGbi^X for each opened window. 
3ot/f the process and the ctocManager objects reside on <? separate heap - the 
process heap. 

The first things the docmanager does are to: make the document heap, and 
place a new wtndow^\^X on that heap. There is a separate document heap for 
each window. 

The window's BlankStationery method creates the panels and the initial view 
of the document. BlankStationery must do the following things to initialize the 
view: 

a) create a panel. The panet, in turn, creates an initial pane. 

b) create a view. The new view is then linked to the panel 

c) create an initial selection The default is an instance of TSelection. 

After returnirig from BlankStationery. the Generic Application tells the 
window to activate Itself. This causes the window to update. The window update 
frames the panel and pane, then draws the view. 

After drawing the view, the Generic Application highlights the window's title 
bar. and waits for the next user event. The user is now able to work on the new 
document. 
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THE VIEW CXX3RDINATE SYSTEM 

some def initiofK 

inner reel: the coordinates of the inner boundary of an object. 

TypicaHy this is one pixei less all around than the outer boundary. Inner 
rects are expressed in 16-bit ^/i9(^^i«^coordinates. 

LRect: the 32-bit analogue of QuickDraw's Rect type. 

Each coordinate is a long integer. 

extent LRect: an LRect defining the logical boundaries of the view. 

The extent LRect imposes a 32'->bit coordinate system upon the view. 
Only a portion of the extent LRect may be visible at any moment. 
[See the diagram "View vrs. Pane".] 

viewed LRect: the portion of the view visible through a specific pane. 

Each pane has an inner rect and a viewed LRect. The viewed LRect 
encloses that portion of the view that is to be displayed in the pane's 
inner rect. 

The pane performs a mapping from the 32 -bit coordinates of the view 
to the 16-bit coordinates of the window's grafport. 

The coordinate system of the viewed LRect is the same as that of the 
view's extent LRect. [See the diagram "View vrs. Pane".] 

the mechanics of drawing the view 

If you recall QuickDraw is the Apple 32 graphics utility. QuickDraw 
performs all of its drawing in a 16-bit coordinate space. This means that drawing 
is limited to between -32768 and 32767 units in either the X or Y direction. 

in a typical document the data objects are arranged by coordinates. For 
example^ a box enclosing text may be defined by the Rect [100* 100, 500, 300]. The 
first line of text might start at [l 10, 120]. This is done both to interrelate data 
objects spatially within the document and to allow objects to be drawn inside the 
window's grafport. 

Unfortunately, a 16-bit coordinate space supports, for example, no more than 
40 pages of text data. There are no more unused points in the coordinate space to 
associate new text with. 

The ToolKit remedies that problem by supporting 32-bit coordinates. In the 
case of text, a 32 -bit coordinate space supports more than a million pages. 77f/s is 
much more than a document can actuaily hotd, 

ToolKit views support objects specified in 32-blt coordinates. The view 
extent L/?ect6e$cr\be% the subset of the 32 -bit coordinate space in which objects 
can be defined and through which the view can be scrolled. 
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Drawing objects expressed in 32-bit coordinates into a 16-bit grafport 
though, poses a bit of a problem. A translation must be performed upon the 32-bit 
coordinates before drawing is possible. That is where the pane steps in. 

The pane displays a subset of the view. The pane's /nner rectre%\(ie% in the 
16-bit coordinate space of the window's grafport. To display 32 -bit data objects, 
the pane also has a viewed LRect This viewed LRect is a viewport into the view's 
coordinate space. The pane's viewed LRect is a subset of the view's extent LRect. 

Typically with the same dimensions as the inner rect the viewed LRect makes 
possible a one-to-one mapping of points from a 32-bit view to the 16-bit screen. 

Scrolling through the document changes the coordinates of the viewed LRect 
enabling other portions of the view to be mapped to the screen. 
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SAMPLE CODE 

Sample code for a window BlankStationery method and view CREATE 
function are listed below. The listing assumes that TMyWindow is created as a 
subclass of TWindow; and that TMyView is created as a subclass of TView. 

PfVGCOURe (Ti^ndM.) Bi«icst«tioneTy; 

VAR nyviev: TT^eM; 

panel: TP«iel; 

RinHeiflht, 

nimtidth: IMTCKR; 

extentlDect: Utect; 

dOCMup: THUp; 

itsPrimilgr: TPrifrtNioager; <ti»e print ftanager Hi the viev} 

BEGIN 

{Beer in idnd thet SCLF represents the wtOont object) 

docHev :- SCLf.He«p; 

{create the panel Mith tM scroll bars. The pane in the panel will 
Be able to be scrolled and split both horiientally and 
vertically.) 
ninHeight :- 0; {fdnifWR height of the panel inner rect) 

nintfidth -. * 0; {niniiMi widtli of the panel inner rect) 

panel .« TPanel.CR£ATE<Na, docMeap, SELF, nihHeight, idnuidth, 

[aBar,aScroll,a$plit], [aBar,aScroll,aSplit]); 

{create the viev) 

{define the viev extent rect) 
setii)ect(exteinLRect, {its left), {its top), {iu right), {its bottoM)); 
nyvieif :» TnyvieN.CreateCNIL, docNeap, panel, extentLRect); 

DD fniiWindov. BlankStationery); 

{iniiininiiititiiiiiitiiiinniiiiitiiitiiitiiiitiiiiiiiiiiiiiiiiiiititiniiiiMitiiiiMti^ 



FUNDTION {Tl^en.) GRCllTE {(Object: TQbject; itsHeip: TNeap; panel: TPanel; itsExtent: meet) 

: n^eii) 
CONST itsFitPerfectlyOnPages * TRUE; {«ill resize the view extent rect to fit perfecUy 

on pages) 
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View vrs. Pane 



View 

ExtentLRect 

(32-tiit cxnrdiratos) 



400,0 




1000,0 



04000 



1000,1000 



Pane 

ViewedLRect 

(JZ-btt view coordinates) 
OjO 400,0 



Pane 

Inner Rect 

(16-bit «^iralow ooordirMtes) 



^^B^^^ :• -•■■■': ^:^■:i;"'■r•■<^^' 




^m^^^i 


■1 


■HTnminanamiitant}! 





30,90 



0,350 



400,390 



mapping from view to window 






J>i>i*|i|*i>i*ii|i|!|ii!i>! 
pf^if^.i.i.t.t;i.i.iii.-i^t^j 



430,4001 

•MMH 



V«R itsPrirrtflflr: TPriirtHawocr; 

{stdTtargim. LRect; (filobal Mrgin settings in screen pixels) ) 

BKIR 

IF object • NIL THEN {creete § new object of this dess) 

<The coivileT construct, THISCLASS, supplies the class pointer 
iutOMticelly} 
object :» NeMObjectatsNeap, THI$CUS$); 

<cre»te a default print Manager) 

{This print nanager ull ailov general printing capabilities, 
except for Margins and headings) 
itsPrintngr .= TPrinthgr. CREATE (ML docHeap); 

(create a nen standard view) 

{the view will be created as a nain view (not a printed or 
paginated view) with horizontal and vertical resolutions 
the sane as the screen) 

SELf :« TltyView(panelHewView<object; itsExtent, itsPiintMgr, stdhargins, 

itsfitPerfecuyonPages)); 
{!» WTE ?• 

The construct, Tl|yView< ~ ), is a tfpe esst 

A type cast treats its argunent as if it were of the specified 

class or type. The nethod, Tfanel.NewView, returns a 
value of class TView. This result is type cast, because 
SELF mist be assigned a value of class TlVView. 

vm {Tfiyview. Create); 
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[Segment 5] 

Intro to the Boxer Application 

Purpose of this segment: 

1) To introduce the Boxer application. 

2) To demonstrate how to draw boxes. 

How to use this segment: 

This segment includes a tutorial and a lab. You should read the tutorial and 
answer the questions before proceeding to the lab. 

You should start this segment after the "BlankStationery" segment. You should 
complete this segment before the "Selections & Highlighting" segment. 



INTRCXXiCTION TO THE BOXER APPLICATION 

The Boxer application displays and edits boxes. We shall Implement Boxer in 
stages, over the next seven segnrients. 

In Boxer documents the data are boxes, boxes, and boxes. A /at^Is used to 
store the boxes. The list is maintained as a field in the view. 

With a list we are able to access any box easily. Using a //sf scanner we can 
access each box in sequence. The list scanners also provides easy insertion and 
deletion of boxes ^af^^^i^a:^ 

Each box is represented internally as an object with several fields. A box's 
primary attribute, its dimensions, is conserved as a Toolkit LRect. l/Hectssne 
uniquely defined ty fou^ long mteger coonimates. 

As with any document, we must make provision for displaying the data. To 
display a box, we just draw a frame around its LRect. To display the data in the 
view, we use a list scanner to step through the list and draw eac^ box. Actual 
drawing occurs in the view's panel. 

Though each box is always drawn at any given time, some boxes may not be 
displayed. The actual display is determined by int panel's panes. Within a pane, only 
those boxes Intersecting the pane's viewedLRect are displayed. And of those boxes, 
only that portion contained within the viewed LRect Is drawn on the screen. The 
pane's viewed LRect acts as a temporary clip region. This mechanism is called 
focusing. When dtawing in a panel, the Generic Application focuses each pane before 
(flanging bits on the screen. 

Editing boxes follows the normal Lisa model. As with other data, boxes must 
be selected to be operated upon. Among the editing operations we implement for 



boxes are: box moves^ color changes^ duplicate^ and cut & paste. Editing operations 
are inipiemented in subsequent segnients. 

BOX OBJECTS 

Box objects have certain attributes. These are included In the table below. 

Attributes of box objects 
updifiible constwit 

color 
^ape LRect size 

The color \% one of five standard colors (white, gray, light gray, dark gray, 
black). 

l\>i^ shape ^/?«?^determlnes both the location within the view space and the 
size of the box, [See the 'Too/Kit Reference h^lanual' for more details on LRectsJ. 
The shape LRect can be offset, (this is how the box is moved within the view), but 
it*s dimensions remain constant. 

A box's attributes are saved in Its fields. This is indicated by the partial 
interface below. 

TYPE 

TColor s (colorUhite, colorLtfiriy, coloffiriy, coloiOlcfiray, tolt»r81«cK); 

TtOX » SUBCLASS Of TObjeet 

<rieias> 

color: TColor; 

^MthOdS} 

As can be seen from the interfdce, box objects are instances of the class, TBox. 
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IMPLEMENTATION STRATEGY 

In this segment we create two boxes, and insert thenr^ into the view. The view 
maintains the b^ces in an indexList Each created box is appended to the list. 
Initially, a box's color and shape LRect will not change. 

We have built upon the application code presented In the "Generic Application" 
segment. 

We have created a new class, TBox. Boxes are instances of TBox. Within this 
class we have added the method {TBox.} Draw to enable each box to draw itself. The 
impiementation for TGox is inclucfed in the appendix "Code Sampfe for this 
Segment", 

in addition to adding TBox, other application changes were made, most 
notably in the view. The modifications are listed below: 
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New Classes 

TSOX * SUBCLASS Of TOtject 

(vniibles) 
sMpeUect: iRect: 
color: TGolOT; 

(Creition) 
FUNCTIOH (TBOX.) CREATE (Object: TObjCCt; itsHeap: THeap); 

<Display> 
PROCeOURE <78ox.}0rM; 
EW {Of TBox); 

New Methods (for existing classes) 
[TBoxViev] 

PROCEDURE (TBoxVieU.) lldtflOXLiSt (ItSHMp: TMHP); 

{TBoxVlew.}lnltBoxLlst creates an index list then appends two 
newly created boxes to the list. 

Chanoed Methods 
CTBoxvifidoif] 

PROCEDURE {TBoxtfindou.} Bl«nkStitioneTy; 

{T6oxWindow.)6lankStationery now creates the view and tells it 
to initialize its list of boxes. 
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theory of operation 

Because of the minimal user interface* IBoxer operates quite simply, if 
initializes the view in BlankStationery* then waits until the window updates to draw 
the boxes in the view. The flow of control is depicted below: 

I TBoxWindow.Update 

I TBoxVlew.Draw 

V TBox.Draw (for each box) 



APPENDING OBJECTS TO A LIST [optional] 

Appending objects to a list Is fairly straightforward. Below* we show some 
sample Clascal code that appends boxes to a list. 



PMKEOURE IfiitBoxUst (boxtist: TList; itsNe#: TNeip); 
VM box: T8ox; 

BEGIN 

<initi^ize the list idth no eleneins) 
boxUst :« Tast.Cntte(NIL itsHup. Q>; 

box :> TBoK. CrMtt(IIIL< itsMup); <cr«att a box) 

boxtist. InsLast(box); fippmO the box to the list) 

box :< TBox.Crette9UU itsNop); <cretu mother box) 
boxList.IfisLast(boK>; <ippemi it to the list} 



END; 
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DRAWING OBJECTS FROM A LIST [optional]: 

The boxes in the view's list are drawn one at a time. A list scanner is the 
best way to step through the objects in a list. The code segment below draws each 
box in the list, boxList. 



PAOCEOURE Dr«f (bOXUst: Ttist); 
VMi box: TBox; 

S: TliStSCMWf; 

K6IN 

{create « list scanner for the list, boxlist) 
s :> bo}cList.Sc«Aer; 

(Orw e«cti box in the list) 
WILE s.Sc«i(box) 00 
box.Oiw; 
E»; 



HOW TO DRAW A BOX [optional] 

As was stated before^ a box is an object with a shape LRect and a color. The 
shape LRect js the shape of the box. This reduces the problem oi drawing a box to 
drawing an LRect. 

Drawing an LRect in the TootKit is similar to (Rawing a Rect in QuickDraw. 
The main difference is that LRects have 32-bit coordinates, rather than the 16-bit 
coordinates of Rects. 

Drawing a shape is a two step process. First you fill the shape, then you 
frame it. The fill operation uses the ToolKit procedure. Fill LRect. The frame 
operation uses the ToolKit procedure, FrameLRect. 

The FillLRect procei^e is analogous to the QuickDraw procedure, FIIIRect. 
FillLRect takes two parameters - an LRect and a pattern. The pattern must be of 
the ToolKIt type, LPattern. Fortunately, the ToolKit pre-defines the following 
color LPatterns: 

[ iPttMiite, iPttBltck, iPttfiriy, ifttLtfiriy, iPttnosrv ]. 

To fill an LRect named myLRect with the color black, you would use the following 
procedure call: 

Filimect (nylRect. IfatBlacK) 
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The FrameLRect procedure is analogous to the QuickDraw procedure. FrameRect. 
FrameLRect takes just one parameter, the LRect. To frame the LRect myLRect 
you would use the following call. 

FrMeUtect (fvUlect) 
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Intro to Boxer Lab 



Purpose of the lab: 

To implement a simple Boxer document. 

What you are about to do: 

1) Read the section "Desired Application Behavior*. 

2) Scan the listings for the four files in the sample application. These are 
included in the appendix. *Code Samples for this Segment**. 

3) Copy the following files onto your prefix volume: 

U2Boxer.7EXT 
U2Boxer2.TEXT 
H2Boxer.TEXT 
PZBoxer. TEXT 

4) Compile^ install^ and run the sample applicatioa 2Boxer. Use 42 as the' 
toot number. 

Try the following: 

a) Split the panel into panes. 

b) Scroll to the end of the view. 

5) Try one or both of the following changes: 

— display one gray box and one black box. 

- draw a box that is bigger than the view extent LRect. 

Desired application behavior: 

After a piece of stationery is torn off of the 2Boxer pad. the new document 
should display two boxes as shown in the attached screen shot. 

The boxes will have the following attributes: 

sham \Mtcx titim 

box #1 [ (20,20) , (100J00) ] Gray 
box #2 [ (200,100) , (300J30) ] Gray 
Note that the color is set to gray in the method {TBox.} CREATE. 
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Questions: 

1) Think about how you might select a box and indicate that it is selected. 
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42 

SL0T2CHAN1 

; no assembler files 

S 

; no building blocks 

; no 1 inks 
$ 

y 
y 

n 
BoxNum2 



appla comptAotr 
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; PBOXER. TEXT for Boxtr 

;Phr«s« flic for Boxer class axample 

1 

5 

2500 

$-n)OOt-tk/PABC 

; Apple building block phmss files can bt included here 

1000 
Boxer 

; Other appl icat ion alerts can be Included here, numbered between 1001 and 32000 



1 

File/Print 

Set Aside Everythingnoi 

Set Aside«102 

Save & Put AuaylOS 
Save & Cont inue»107 
Revert to Previous Wersion»108 

Format for Printer . . . •lOA 

Print . . . nOS 

Monitor the Printer . . . 106 

100 

Buzzwords 

Set Aside TDocument T*109 
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^ ^ ^ . . , ^ — __ _ ^ 

PROGRAM MZBoxer, 

USES 

{$U UObJect } UObjflct. 

{$IFC 1 ibraryVersion <- 20) 

($U UFont) OFont. 

{$£nDC) 



SU OuickOrau 
SU UDrau 



OulckDrau, 
UDrau, 



:$U UABC } UABC, 

{$U UZBoxer ] U2Boxer. 

CONST 

phraseVersion ■ 1; 

BEGIN 

process ; ■ TBoxProcess. CREATE: 
process. Commence(phraseVersion); 
process. Run; 
process. Coinplete(TRUE); 

END. 
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, .^ ________ — _ . ^ 

1 — UNIT U2Boxer, 

2 — 

5 — I^^rERFACE 

4 — 

5 — USES 

6 — {$U UObject] UObjecl, 

8 — {$IFC 1 IbraryVerslon <- 20] 

9 — {$U UFont} iJFont, 
10 — {ttNDC] 
H — 

12 — {$U OuickDrau] QuickDraw, 

15 ~ [$U UDrau} UDrau, 

14 ~ {$U UABC] UABC; 

15 ~ 

16 — 

17 — CONST 

18 — colorUhite - 1; 

19 — colorttGray « 2; 

20 — colorCray ■ 3; 

21 ~ colorOkGray •4; 

22 — colorBlack ■ 5; 

23 ~ 

24 — 

25 — TYPE 

26 — 

27 — TCol or • col ortlh lie. . colorBlack; {color of a box] 

28 ~ 

29 — {Neu Classes for this Application) 
SC- 
SI — TBox - SUBCLASS Of TObject 

52 — 

53 ~ (Variables) 

54 — shapeLRecl; LRect; 

55 — color TCoIor, 

56 ~ 

57— (Creation/Destruction) 

58— FUNCTION TBox. CREATE( object: TObject; ItsHeap: THeap): TBox; 
59 — 

40 — (Display) 

41 — PROCEDURE TBox. Drau; 

42 — END; 

43 — 

44 — 

45 — TBoxVieu > SUBCLASS OF TV leu 

46 — 

47 — (Variables) 

48 — boxList: TLlst; 

49 — 

50 — (Creat ion/Destruct ion) 
51— FUNCTION TBoxVieu. CREATE( object: TObject; ItsHeap: THeap; ItsPanel: TPanel; itsExtent: LRect) 

52 — : TBoxVieu; 

53 — 

54 — (Display) 

55— PROCEDURE TBoxVieu. Drau; OVERRIDE; 

56— PROCEDURE TBoxVieu. In it BoxList ( it sHeap: THeap); 

57 — END; 

58 — 

59 — 

60 — TBoxProcess ■ SUBCLASS OF TProcess 

61 — 

62 — (Creation/Destruction) 
63— FUNCTION TBoxProcess. CREATE: TBoxProcess; 

64 — FUNCTION TBoxProcess. NeuDocManagerC volumePrefix: TFilePath; openAsTool: BOOLEAN) 

65 — : TDocttanager, OVERRIDE; 

66 — END; 

67 — 

68 — 

69 — TBoxDocHanager * SUBCLASS OF TOocflanager 

70 — 

71 — (Creat ion/Destruct ion) .^ ..>,,.., .^ ._^ 
72— FUNCTION TBoxDocHanager. CREATE( Object: TObject; ilsHeap: THeap; ItsPathPref xx: TFilePath) 
75 — : TBoxDocHanager, 
74— FUNCTION TBoxDocHanager. NeuUlindou( heap: THeap; umgrlD: TUindouID): Tlilindou; OVERRIDE; 

75 — END; 

76 — 

77 — 

78 — TBoxUindou - SUBCLASS OF TUindou 

79 — 

80 — (Creat ion/Destruct ion) . .^ ,„ ,.,. ^ ,r.\ ▼» ... ^ 
81— FUNCTION TBoxyindou. CREATE( object: TObject; itsHeap; THeap; itsUmgrlD: TWmdouID): TBoxWindou; 
82 — , 
85 — (Document Creation) 

84 — PROCEDURE TBoxUindou. BlankStat ionery; OVERRIDE; 

85 — 

86 — END; 

87 — 

88 — 

89 — IMPLEttNTAT ION 

90 ~ 
_ 91 ~ ($1 U2Boxer2. text) 
2 1 — (UBoxer2) 

2 2 — 

2 5 — METHODS OF TBox; 

2 4 — 

2 5 — 

2 6 — A FUNCTION TBox. CREATE( object: TObject; itsHeap: THeap): TBox; 

2 7 0- A BEGIN , 

2 8— ($IFC nrace)BP(ll);($ENDC) 

2 9 — SELF :■ NeuObject( itsHeap, THISCLASS); 

2 10 — KITH SELF DO 

2 11 1- BEGIN 

2 1? — shapeLRect : • zeroLRect; 

2 1'5 — color :» coIorGray; 

2 14 -1 END; , ,_ , 

2 15 — (SIFC frrace)EP; (SENOC) 

2 16 -0 A END; 

2 17 — 

2 18 — (This drau a particular box) 

2 19 — A PROCEDURE TBox. Drau; 
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/ ^ ■ ■ ^ — ■ ^ — — ^ ■ — - — 

2 20 — VAR lP»t: LP*tt«m; 

2 21 0- A BEGIN 

2 22 — r$IFC fTr«c«lBP(10);{$ENDC) 

2 25 — PanNormal ; 

2 24 — 

2 25 — IF LRectI$Visible(SELF. shapeLRect) THEN {this box needs to be draun] 

2 26 1- BEGIN 

2 27 — {Get « Ouickdrau pattern to represent the box's color} 

2 28 2- CASE SELF, col or OF 

2 29 — coIorWhite; IPat :• IPatUhite; 

2 50 

2 SI 

2 52 

2 55 

2 54 



coIorWhite; 


IPat 


col orLt Gray: 


IPat 


col orGray: 


IPat 


col orOkGray. 


IPat 


col orBl ack: 


IPat 


OTHERWISE 


IPat 


END; 





1 Pat Lt Gray; 

I Pat Gray; 

IPatDkGray; 

IPatBlack; 

IPatUhite; {this case should not happen] 



2 55 -2 

2 56 — 

2 57 ~ {Fill the box with the pattern, and drau a frame around it] 

2 58— FlllLRect(SELF. shapeLRect, IPat); 

2 59— FrameLRectC SELF. ShapeLRect); 

2 40-1 END; 

2 41 — {$IFC rTrace)EP; {$ENDC} 

2 42 -0 A END; 

2 45 — 

2 44 — END; 

2 45 — 

2 46 — 

2 47 — 

2 48 — 

2 49 — METHODS OF TBoxUieu; 

2 50 — 

2 51 — A FUNCTION TBoxVieu. CREATE( object: TObject; itsHeap. THeap; itsPanel: TPanel; itsExtent: LRect) 

2 52 — : TBoxVieu; 

2 55 0- A BEGIN 

2 54— fJlFC nrace)BP(ll); {$ENDC) 

2 56 — IF object - NIL THEN 

2 56 — object ;- NeuObject( itsHeap. THISCLASS); 

2 57— SELF ;- TBoxVieu( itsPanel. NeuVieu( object, ItsExtent, TPrinthanager. CREATE(NIL, itsHeap), 

2 56 — stdHargins, TRUE)); 

2 59— {$IFC nrace)EP;{$ENDC} 

2 60 -0 A END; 

2 61 — 

2 62 — 

2 63 — {This draus the 1 ist of boxes) 

2 64 — A PROCEDURE TBoxVieu. Drau; 

2 65 — VAR box; TBox; 

2 66 — $: TListScanner 

2 67 0- A BEGIN 

2 68— {JIFC nrace]BP(10);{JENDC) 

2 69 — $ :- SELF. boxL ist. Scanner; 

2 70 — KHILE $. Scan(box) DO 

2 71 — box. Drau: 

2 72— {JIFC n race] EP;{$ENDC} 

2 75 -0 A END; 

2 74 — 

2 75 — A PROCEDURE TBoxVieu. InitBoxList (itsHeap: THeap); 

2 76 — VAR box; TBox; 

2 77 — boxList: TList; 

2 78 0- A BEGIN 

2 79— {$IFC nrace]BP(10); {$ENDC} 

2 80 — boxL ist :• TList. CREATE( NIL, ItsHeap, 0); 

2 81— SELF. boxL ist :-boxL ist; 

2 82 — 

2 85 — {create and append the first box] 

2 84— box :• TBox. CREATE( NIL, ItsHeap); 

2 85 — {JH-J Set LRect (box. ShapeLRect, 20.20, 100, 100); {$H-} 

2 86— SELF. boxL ist. InsLast( box); 

2 87 — 

2 88 — {create and append the second box] 

2 89— box :- TBox. CREATE( NIL, ItsHeap); 

2 90— {$H-} SetLRect( box. ShapeLRect, 200, 100. 500, 150); {$H*) 

2 91 — SELF. boxL ist. InsLast( box); 

2 92 — {$IFC fTrace]EP; {SENDC} 

2 95 -0 A END; 

2 94 — 

2 95 — END; 

2 96 — 

2 97 — 

2 98 — 

2 99 — 

2 100 — fCTHODS OF TBoxProcess; 

2 101 — 

2 102 — 

2 105 — A FUNCTION TBoxProcess. CREATE: TBoxProcess; 

2 104 0- A BEGIN 

2 105 — {$IFC nrace]BP(ll);f$ENDC] 

2 106— SELF :■ TBoxProces$(TProcess. CREATE(NeuOb ject( ma inHeap, THISCLASS), ma inHeap) ) ; 

2 107— {$IFC nrace]EP;{$ENDC] 

2 108 -0 A END; 

2 109 — 

2 110 — 

2 111 — A FUNCTION TBoxProcess. N«uDocManaoer( vol umePre fix: TFilePath; openAsTooI: BOOLEAN): TDocManager 

2 112 0- A BEGIN 

2 115— {$IFC nrace]BP(ll);{$ENDC] 

2 114— NeuDocHanager :- TBoxDocManager. CREATE(NIL. mainHeap. voIumePref ix); 

2 115 — {JIFC fTrace]EP; {SENDCJ 

2 116 -0 A END: 

2 117 — 

2 118 — END; 

2 119 — 

2 120 — 

2 121 — 

2 122 — METHODS OF TBoxDocHanager 

2 125 — 

2 124 — 

2 125 — A FUNCTION TBoxDorManager. CREA'i( object: TObject; ItsHeap: THeap; itsPathPref ix: TFilePath) 

2 126 — : TBoxDocHanager. 

2 127 0- A BEGIN 

2 128— ($IFC fTrace)BP(ll);{$ENOC] 

2 129 — IF object • NIL THEN 
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2 150— object :- N«uObJect( it sHeap. THISCLftSS); 

2 131— SELF :• TBoxDocManagerf TDocHanager. CREATE( object, itsHeap, itsPathPref ix)): 

2 132 — {$1FC fTr»ce}EP; {SENDC] 

2 133 -0 (\ END; 

2 134 — 

2 135 — 

2 136 — A FUNCTION TBoxDocHana0cr. Neuyindou(heap: THeap; ungrlD: TUindouIO): TUindou; 

2 137 0- A BEGIN 

2 138 — {$IFC nrace)BP(ll);{$ENDC) 

2 139— NeuUindou : • TBoxUindou. CREATE(NIL, heap, umgrlD); 

2 140 — {JIFC nrace)EP; {SENDC) 

2 141 -0 A END; 

2 142 — 

2 143 — END; 

2 144 — 

2 145 — 

2 146 — 

2 147 — METHODS OF TBoxWindou; 

2 148 — 

2 149 — 

2 150 — A FUNCTION TBoxUindou. CREATE( object: TObject; ItsHeap; THeap; itsUmgrlD: TUindouID); TBoxUindou; 

2 151 — CONST IsResizable - TRUE; 

2 152 0- A BEGIN 

2 153— (JIFC nracelBP(10);{$ENDC) 

2 154 — IF object -NIL TKCN 

2 155 — object :- NcuOb1ect( itsHeap, THISCLASS); 

2 156— SELF :• TBoxWlndouC TUindou. CREATE( object, ItsHeap. itsUmorlD, isResizable)); 

2 157— {$IFC nrace)EP;{$ENDC) 

2 158 -0 A END; 

2 159 — 

2 160 — 

2 161 — 

2 162 — A PROCEDURE TBoxUindou. BlankStationery; 

2 163 — VAR vieuLRect; LRect; 

2 164 — panel: TPanel; 

2 165 — boxVieu: TBoxVieu; 

2 166 — 

2 167 0- A BEGIN 

2 168 — {$IFC fTrace) BP(IO); {$ENDC} 

2 169 — {set the vieu extent LRect} 

2 170— SetLRect(vieuLRect,0, 0,5000, 3000); 

2 171— panel :- TPanel. CREATE( NIL, SELF. Heap, SELF. 0. 0, 

2 172— faBar, aScrolI.aSpl it], t<Bar, aScroIl, aSpI it]}; 

2 173 — 

2 174— (Initial Ize the boxVieu} 

2 175— boxVieu :> TBoxVieu. CREATE( NIL, SELF. Heap, panel, vieuLRect); 

2 176— boxVieu. InitBoxListf SELF. Heap); 

2 177 — {$IFC fTrace} EP; {JENDC} 

2 178 -0 A END; 

2 179 — 

2 180 — END; 

1 92 — 

1 93 — END. 
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[Segment 6] 

Selections & Highlighting in Boxer 



Purpose of this segment: 

1) To introduce the concept of selections. 

2) To describe how to highlight a box. 

How to use this segment: 

This segment deals with selections. It includes a tutorial and a lab. Please 
complete the tutorial before proceeding to the lab. 

You should start this segment after the "Intro to Boxer" segment. You should 
complete this segment before starting the "Box Moves" segment. 

In the previous segment you implemented drawing boxes in the view. The next 
stage is to select a box* then perform actions (changing its color, moving it, etc.) 
upon it. This segment covers how to select a box, and indicate that it Is selected. 



INTRODUCTION TO SELECTIONS 

Making a change to a Lisa documents you typically operate upon a particular 
object (or objects) in the view. Since you select the object to be acted upon (by 
using the mouse or other means), it is known as the selected object 

A selection\% a Toolkit object that keeps track of the selected object. Ail 
changes to a document are routed through selections. A selection verifies that a 
desired change is appropriate for its selected object, before performing any 
operation. 

Selections in the ToolKit have the following structure: 
TSelection « SUBCLASS OF TObject 



{fields} 




idndMi: 


mndoif; 


pml: 


TPmcl; 


viM: 


TViM; 


Idftd: 


INTCCIER; 


mchoiLM: 


LPoint; 


currLPt: 


IPoint; 


tountfUtect: 


Utect; 



{the HindOH in Mhich it ms nade) 

{the panel in Hhich it nas nade) 

{the viau (of the panel) in ahich it ms nade) 

{idnd codes are defined by the application's vieii) 

{the place ahere the nouse nent doan (vieir-relative)) 

{the place the nouse aas last tracked (vieu-relative)) 

{the LRect Pounding the selection (default is hugelltect 
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m LRect vith bounds: 0, 0, $3FFFFFFF, $3FFFFFFF )} 
<other internal fields) 



A selection exists even if no object is selected. In that case, the selection is 
null. The selection's kind field, indicates whether the selection is null or not. A 
special ToolKit constant nothingKind {e(/aa/ to OX indicates a null selection. 

The selection is either an instance or a descendant of TSelectlon. A selection 
exists in each panel of the docunr^ent. 

The main role of the selection is to apply user actions such as nnouse nnoves or 
menu commands to the selected object (or objects), 

SELECTION CONCEPTS 

There are four concepts essential to successful implementation of selections 
in your applications. These are: highlighting, deselection, anchor LPoint. and free and 
replace. 

highlighting 

A selected object is distinguished by hi^lightingW. A highlight\% a visible 
mark on the object, indicating that it is selected. 

The selection's Highlight method is used to both mark an object when it is 
selected, and to remove the mark when the object is no longer selected. Each 
subclass of TSelectlon should override the Highlight method. 

deselectfon 

An object that is no longer selected is said to be deselected A selected box^ 
for example, is deselected when one of the following occurs: 

1) a different box is selected. 

(for example, the user clicks on another box) 

2) the user clicks where there is no box. 

anchor LPoInt 

Users of Lisa applications typically select objects by clicking on them. For 
this reason, every selection has an anchor LPoint [An LPofnt 1$ analogous to a 
QuickDraw Point but with dZ-bit coordinates]. The selection's anchor LPoInt is 
used to save the view-relative location where the mouse went down. 
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free and replace 

Standard TootKit behavior is to repiace the selection after each tinr^e a mouse 
press is detected in the view. This is tricky^ since so nrtany ToolKit objects 
reference the selection. For this reason^ selections are replaced using a special 
method, FreedAndReplacedBy. 

FreedAndReplacedBy replaces the selection while retaining Its original 
Clascal handle. Thus, all references to the old selection object now point to the new 
one. 



UPDATE REGION 

Another concept important in our implementation is the upcfste region 

The update region Is an area within the document's window that needs to be 
redrawn. Any time we change the view, we may need to define an update region to 
modify the display. The update region is set by the window manager to be the 
visRgn when the window updates. When the window update completes, the update 
region is emptied, and the visRgn reverts to its previous state. 

An update region is more efficient to refresh than the whole window. Fewer 
bits need to be changed in the screen bit map. Modifying a few thousand extra bits 
after every change in the document can turn a responsive ^piication into a reai dog. 

You have two options for updating the display. If the change is trivial, you 
can update the display in each pane directly. But. if the change affects parts of the 
document besides the selected object, you need to build an update region. The 
mechanics of building an update region are covered in the next Boxer segment - 
"Box Moves". 



6-3 



PARTIAL INTERFACE OF TSELECTION 

The partial Interface of TSelection i$ listed below: 

TSelection • SUBCLASS OF TObject 

{nethote) 

(creation} 
rUNClION {TSelection. >CftEATC (object: TObject; he«p: THeap; itsViev: TVieu; 

itsidnd: INTE6ER; itsAnchorLft: LPoint): TSelection; 

{replects one selection with enother) 
FUNCTION {TSelection. ) FTee<IAndRepl«cedBy<selection: TSelection): TSelection; 

{selecting) 

{highlights the current selection) 
PmCEDURE {TSelection.) Kighlight<highTiensit: TNighTrensit); DEFAULT; 

{deselects the selected object, then 
replaces it with TViev.NoSelection) 
PROCEDURE {TSelection.) Deselect; DEFAULT; 

{called when the ROuse is pressed) 
PROCEDURE {TSelection.) nousePress(fiouseL?t: LFoint); DEFAULT; 

{called nhen the nouse noves) 
PROCEDURE {TSelection.) nouseflove(AOUseLPt: LPoint); DEFAULT; 

{called when the nouse is released) 
PROCEDURE {TSelection.) Nouseftelease; DEFAULT; 

(Mte: DEFAUL T indicates that the method is intended to he overri(kien in subciasses, 
but some defauit ttehavior is impiemented) 

HIGHLIGHTING 

In Boxer, the selected objects are boxes. Your application needs to supply a 
Highlight method that marks a selected box. 

Although you need to tell the Generic Application how to highlight, it 
determines when to highlight. 

The Generic Application calls the current selection's Highlight method to 
highlight the selected object. This is done automatically during window updates 
when the update region is not empty . 
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Highlight methods typically mark the selected object In a reversible way. 
The same method is used to both paint handles on the selected box^ and remove them 
when the box is deselected. 

To deselect your application must call Highlight itself. 

The ToolKit defines several special pen states for painting highlights 
reversibiy. For boxes, the two pen states we shall be concerned with are: 

hOffToOn {makes highlight marks appear} 

hOnToOff {makes highlight marks disappear} 

A simple way to highlight a box is to paint tiny rectangles at its corners. 
Those tiny rectangles are sometimes called handles. 



IMPLEMENTATION STRATEGY 

In this stage of Boxer we implement a particular kind of selection, a 
boxSelection. We define the class, TBoxSelection, as a subclass of TSelection. 

The user is allowed to select one of two boxes In the view. As the partial 
interface below indicates, a special field, box, in the selection is used to keep track 
of the selected box. 

TBoxSelectlon « SUBCLASS Of TSelection 

{fields) 
box: TBox; {the selected box, oi NIL {if none is selected)) 



user Interface 

Two boxes are drawn on the screen. Either box may be selected by the user. 

When the user clicks on a box, it Is highlighted. Tiny handles appear at the 
corners of the box. Any previously selected box is deselected. The handles of that 
box disappear. 

When the user clicks where there is no box, none is highlighted, but any 
previously selected box is still deselected. 

theory of operation 

The Generic Application initializes the document, calling BlankStationery In the 
process. When initialization is complete, the Generic Application waits for the first 
user event. In the case of Boxer, that first event should be a mouse press. Once a 
mouse p'-ess is detected, the following method calls are made: 
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pane.MouseTrack {TPane.} 

view.MouseTrack {TImage.} 

vIew.MousePress {^\m9^.) defau/t methcfd 

selectton.MousePress {TBoxSelectlon.} ca lied by TImage.MousePress 

Your code resumes from here. 

1. Extract the mouse point where the button went down. This is done 

In {TBoxSelectlon. jMousePrcss. 

2. Deselect the previously selected box. 

3. Determine If the mouse point Is inside of one your boxes. 

If yes then make that box the one currently selected, and proceed to 
step 4. 

If no then do nothing. 

After the mouse is released the Generic Application tells the window to update. The 
update Is performed only If the update region Is not empty. During the update the 
currently selected object is highlighted. When an update is performed this is the 
flow of control: 

window.Update {TWindow.} 

• • • 

For each pane, do 

pane.Refresh {TPane.} 

vIew.Draw {TBoxVlew.} 

selection.Hlghtight {TBoxSe lection.} 

In this stage of Boxer though, the change is trivial. The application highlights 
the selected box directly. 

4. Highlight the currently selected box. 
In your selection's Highlight code do the following: 

a. Set the QuickDraw pen to the appropriate pen state. 

b. If a box is selected, tell that box to paint its handles. 

At this point the Generic Application resumes. The next mouse press event repeats 
the cycle from step 1. 

actual Implementation 
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The actual implementation for 3Boxer Is summarized below. The code for 
2Boxer Is used as a base for the changes and additions described. 

New Constants 

boxSelectioNCind 'I; 

If a box Is selected, we set the kind field to boxSelectionKind. 
if no box is selected, we set the field to nothingKind. 

New Classes 

[TBoxSelectiOA] 

TBox$«ltciion • SUBCLASS OF TStlection 

{fields) 
box: TBox; 

(Creition) 
FUNCTION {TBoxSelection.>CflEATE(object: TOtject; itsHeap: THe«p; itsView: TVieti: 

itsKind: INTEGER; ItsAnchorLPt: LPoint) 
'.TBoxSelection; 

{TBoxSelection.}CREATE creates a new boxSelection with the 
given kind and anchor LPoint. 

PROCEDURE {TBoxSelection.>Hiohlight(highTr«nsit: THiohTransit); OVERRIDE; 

{TBoxSelection.}Highlight sets the highlight pen state. It then 
calls SELF.box.PdintHdndles to highlight the selected box. 

PROCEDURE <TBoxSelection.} HousePress(iiouseLPt: LPoint); OVERRIDE; 

{TBoxSelection.)MousePress deselects any previously selected 
box; then calls SELF.view.BoxWith to return the current 
selected box. The returned value is assigned to SELF.box. The 
kind field is set to boxSelectionKind if a box was selected. 

New Methods (for existing classes) 
CTaoxvien] 

FUNCTION {TBOXViev.) BOXHltnCLPt: LPoint): TBOX; 

{TBoxView.)BoxWith returns the box containing the LPoint where 
the mouse went down. If no box contains the mouse LPoint, then 
NIL is returned. 
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FUNCTION {TBoxViM.) NoSelection: TSelectlon; OVCmiOe; 

{TBoxView.)NoSelection returns a null boxSelection (with kind 
set to nothingKlfid). 

[TBOX] 

PROCEDURE <TBox.) PiintNandles; 

{TBox.)PdintHandles paints a 6x4 (pixel) handle rectangle at each 
corner of the box's shape LRect. The highlight pen state Is 
assumed to be properly set. 

Changed Methods 

(TBoxVindoM] 

PROCEDURE {TBoxUindow.} BlankStationery; 

{TBoxWlndow.}BlankStationery replaces the default selection 
with a null boxSelection. 

(Note: The implementation In 3Boxer, the Boxer stage for this segment differs 
from the ToolKIt guidelines In one respect — the selection Is never freed and 
replaced. In the special case exhibited by this program only one kind of selection, a 
boxSelection^ ever exists,) 



HIGHLIGHTING IN MULTIPLE PANES 

Managing displays In nnultiple panes is a simple matter using the Toolkit. 
The code segment below uses the method {TPanel.lHighLlght to take care of 
highlighting a box that may be displayed In several panes. 

PROCEDURE {TBoxSelection.) NousePress« .. )>; 

VRR panel: TP«nel; 

BE6IN 

{extract the panel eontaininQ the selection) 
panel :• SELF.panel: 

(highlight the selection in every pane in the panel) 
panel. Highlight($ELF, MffToOn); 
END; 

When your document's window has multiple panels call {TWindow.}Highlight Instead. 
This calls {TPanel.}Hlghlight for each of Its panels. 

The Generic Application calls {TWindow,}Highlight to turn down highlighting 
when the winikfw is (^activated, and to turn up highlighting when the window is 
reactivated. 
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Questions: 

1) What is the relationship between the se/ect/on arvi the selected objects 

2) What Is a nult selection? 

How does an application indicate a null selection? 

3) What kind of selection does the Generic Application first install in your 

panel when Initializing a document? 

What method should your application use to replace that selection with an 
instance of TBoxSeiection? 

4) When a document Is initialized the up(iate region Is set to inner Rect of 

the window to draw the initial view. When initialization is complete 
what is the update region set to? 

5) Diagram how a mouse press reaches the current selection. Start with the 

window. 

6) Since this stage of Boxer never alters the update region. Is the currently 

selected object ever highlighted during a window update? 

7) When does your application need to deselect? 
What method is called to deselect a box? 
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Selections Lab 



Purpofc: 

To implement box selections. 

What you will do in the lab: 

You will compile and run 3Boxer, then optionally modify the source. The 
steps below describe what you should do: 

1) Copy the following files onto your prefix volume: 

U3Boxer.TEXT 
U3Boxer2. TEXT 
nSBoxer. TEXT 
P3Boxer.TEXT 

2) Compile, install and run the sample application, 3Boxer. Use 41 as 
the tool number. 

3) Scan the listings of the four files in the sample application. These 
are included in the appendix, "Code Smaples for this Segment". 

4) [Optionat] The Lisa user interface recommends that applications^ 
toggle the highlighting of the selected object when the mouse byfton 
is pressed with the SHIFT key down . If the selected object is 
already highlighted, it is deselected. Otherwise, the object is 
selected and highlighted. 

The SHIFT/mouse press combination should not disturb the 
highlighting of previously selected items. The result is that sevi^at 
objects may comprise the selection. 

In contrast, a normal mouse press (with the SHIFT key up), must 
deselect all previously selected objects. This results In either a 
newly selected object or a null selection. 

The state of the shift key is supplied by the global Toolkit Bool^rt 
variable, clickState.f Shift. The variable is true only if the 
key was down when the mouse press was detected. 

Given the preceding information, implement the selection of 
multiple boxes. 

Things to look out for: 
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Highlighting never gets turned on. 

Be sure you cati the Highlight method of TBoxSelection to highlight 
the newly selected object when a mouse press occurs. 

Highlighting never gets turned off. 

Check to see if you deselect the old selection. 

When deactivating the window^ highlighting goes away. 

Mdl(e sure that the current selection^ window.sefectPanel.selection, 
references the selected object. 

When activating the window, highlighting mysteriously appears. 
Check to see if you deselect the previously selected box. 

Highlighting gets turned off in some panes, hut not others. 
Make sure you deselect and highlight in ail panes. 

FYocess aborts when you press the mouse. 

Verify both that your kind field is set correctly^ and that you are not 
trying to highlight a nil or otherwise invalid box. 



6-lab-2 



9 Rug 1984 IS: 59: 23 X3BCXER.TDCT Page 



45 

SL0T2CHAN1 

;ne «ss*inbl«r files 

$ 

; no bu 11 d inQ bl ocks 

; no 1 Inks 
$ 

y 
y 

n 
BoxNunS 



g Rug 1984 15: 56: 45 



P3BaXER.TEXT 



PBOXCR-TEXT for Boxtr 
;Phr«s« fiia for Boxsr class axuipl* 

5 

2S00 
$-*BOOT-TK/PABC 

: Apple bull ding block phns* flits can b« included hon 

1000 
Boxar 

; Othar appl icatlon alarts can ba Includad hara, nuatoarad b»tu—n 1001 and 32000 



Page 1 



$-*B0OT-TK/PABC-F 11 a/Pr Int 



Paga Layout 
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PROGRAH N3Box«r 
USES 



(SU UObJvct } UObjKt, 

{$IFC I IbmryUtrsion <- 20) 
{$U u- ^ ^ 

($£NOC} 



jiScf""'' ' ""°"'' 



$U OuiekOrau 
$U UOrau 
SU UABC 


OulckOnu, 

UOraw, 

UABC 


{SU U3Box*r 


} U56ox«r 


CONST 




phni$«V«r$lon • 


1: 


BEGIN 





process : " TBoxProc»ss. CREATE; 
process. ConiwncsCphrasaVtrsion); 
proc«$$. Run; 
prooss. Coinpi«t*(TRUE}; 



END. 
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1 - 

2 " 
5 " 

4 — 

5 — 

6 — 

7 — 

8 — 

9 — 

10 - 

11 — 

12 — 
15 — 

14 -- 

15 — 

16 — 

17 — 

18 — 

19 -- 

20 — 

21 " 

22 " 

23 — 

24 " 

25 — 

26 — 

27 " 

28 - 

29 — 

50 — 

51 — 

52 - 
55 — 

54 — 

55 — 

56 — 

57 — 

58 - 

59 — 

40 - 

41 — 

42 — 

43 — 
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45 — 

46 — 

47 — 

48 — 

49 — 

50 — 

51 — 

52 — 

53 — 

54 — 

55 — 

56 -- 

57 -- 

58 - 

59 — 

60 — 

61 — 

62 — 
65 — 

64 — 

65 — 

66 — 

67 - 

68 — 

69 — 

70 — 

71 — 

72 " 
75 — 

74 — 

75 - 

76 — 

77 — 

78 — 

79 — 

80 - 

81 — 

82 — 
85 — 

84 - 

85 " 

86 -- 

87 — 

88 — 

89 -- 

90 — 

91 — 

92 - 
95 " 

94 - 

95 — 

96 " 

97 — 

98 — 

99 " 

100 — 

101 — 

102 — 
105 " 

104 - 

105 - 

106 - 

107 - 

108 - 

109 - 

no - 



UNIT U5Boxer 

INTERFACE 

USES 

[f UObject) 

(lire 1 ibraryVersion <■ 

fJU Ufont) 
{$CNOC} 



$U OuickOrau} 
$U UDrau) 
$U UABC} 



CONST 

colorUhite ■ 1; 
col orLt Gray ■ 2; 
coIorCray ■ 5; 
col orOkGray ■ 4; 
colorBlack > 5; 



UObject, 

20) 
UFont, 



QuickOrau, 

UDrau, 

UABC; 



boxSel act ionKlnd ■ 1; 



TYPE 



TColor - col ortithite. . colorBlack; {color of a box} 

{Neu Classes for this Application} 
TBox - SUBCLASS OF TObject 



{Variables} 
shapeLRect: 
color 



LRect; 
TCol or, 



{Creat ion/Destruction} 

FUNCTION TBox. CREATEC object: TObject; 

PROCEDURE TBox. PaintHandles; 

{Display} 
PROCEDURE TBox. Drau; 

END; 



TBoxVieu « SUBCLASS OF TVieu 



itsHeap: THeap): TBox; 



{Variables} 
boxList; 



TList; 



{Creat ion/Dest ruct ion} 

FUNCTION TBoxVieu. CREATEC object; TObject; itsHeap; THeap; 

: TBoxVieu; 

FUNCTION {TBoxVieu. }BoxUith(LPt: LPoint); TBox; 

PROCEDURE TBoxVieu. Drau; OVERRIDE; 

PROCEDURE TBoxVieu. InitBoxListC itsHeap: THeap): 

FUNCTION TBoxVieu. NoSelection: TSelection: OVERRIDE; 

PROCEDURE TBoxVieu. MousePress(mouseLPt: LPoint); OVERRIDE; 

END; 



TBoxSel ect ion - SUBCLASS OF TSelection 



itsPanel: TPanel; itsExtent: LRect) 



{Variables} 
box: TBox; 



FUNCTION TBoxSelect ion. CREATEf object: TObject; ItsHeap; THeap; ItsVieu: TVieu; itsKind: INTEGER; 

- — • \ TE " '-- 



{Great ion/Dest ruct ion} 

_ . ■ ion. [:Rt.ftit( » . . 

itsAnchorLPt: LPoint): TBoxSei ect ion; 

{Drauino - per pad} 
PROCEDURE TBoxSel ect ion. Highl ight(hi9hTransit; THighTransit); OVERRIDE; 

END; 

TBoxProcBSs - SUBCLASS OF TProcess 

{Creat ion/Dest ruct ion} 

FUNCTION {TBoxProcess. } CREATE: TBoxProcess; .,„ « ^ <. , , »««■ r^«> 

FUNCTION TBoxProcess. NeuDocf1anaoer(volu«ePreflx: TFilePath; openAsTool: BOOLEAN) 

: TDocManager; OVERRIDE; 
END; 

TBoxDocManager » SUBCLASS OF TDocManager 

FWCnON TBoxDocHanager.CREATEC object: TObject; itsHeap: THeap; ItsPathPref ix: TFilePath) 

: TBoxOochanager; 
FUNCTION TBoxDocHanager. NeuWindou(heap: THeap; umgrlD; TUindouID): TWindou; OVERRIDE; 
END; 

TBoxUlindou • SUBCLASS OF TWindou 

^^FUNCnoif*fB«?indSi.CREATE( object: TObject; ItsHeap: TH-p; itsUmgrlD: TUindouID): TBoxUindou; 

{Document Creation} >.,.,.«Bf«.- 

PROCEDURE TBoxUindou. BlankStat ionery; OVERRIDE; 



colorUhite: 


IPat 


colorLtGray: 


IPat 


col ortray: 


IPat 


colorOkGray; 


IPat 


colorBlack: 


IPat 


OTHERWISE 


IPat 


END. 





IPatUGray; 

IPatGray; 

IPatDkGray; 

1 Pal Black; 

IPatUhite; {this case should not happen} 
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^ ^ ___ ^ ^ ^ 

1 111 ~ END; 

1 112 — 

1 115 -- 

1 llA — IHPLEMENTftT ION 

1 115 — 

1 116 — f $1 U5Boxer2. text} 

2 1 — {U5B0XER2) 
2 2 — 

2 5 — METHODS OF TBox; 

2 4 — 

2 5 — ft FUNCTION TBox. CREftTE( object: TObject; itsHeap: THeap): TBox; 

2 6 0- A BEGIN 

2 7— fSIFC fTr»ce}BP(ll); fSENDC) 

2 8— SELF :- NeuObjectC ItsHeap, THISCLASS); 

2 9 — WITH SELF DO 

2 10 1- BEGIN 

2 11 — jhapeLRect : - zeroLRect; 

2 12 — color : ■ colorGray; 

2 15 -1 END; 

2 14— {$IFC nrace}EP;{$£NDC] 

2 15 -0 A END; 

2 16 — 

2 17 — {This draws a particular box) 

2 18 — A PROCEDURE TBox. Drau; 

2 19 — VAR IPat: LPattem; 

2 20 0- A BEGIN 

2 21— ($IFC nrace)BP(10);{$ENDC) 

2 22 — PenNormal; 

2 25 — 

2 24 — IF LRectI$Vl$ible(SELF. shapeLRect) THEN {this box needs to be draun} 

2 25 1- BEGIN 

2 26 — (Get a Quickdrau pattern to represent the box's color} 

2 27 2- CASE SELF, col or OF 

2 28 — colorUhite: IPat :- IPatUhlte; 

2 29 — 

2 50 — 

2 51 — 

2 52 — 

2 55 — 

2 54 -2 

2 55 — 

2 56 — {Fill the box uith the pattern, and drau a frame around it} 

2 57— FillLRect( SELF. ShapeLRect. IPai); 

2 58— FrameLRect{ SELF. ShapeLRect); 

2 59 -1 END; 

2 40 — {$IFC nrace}EP; {SENOC} 

2 41 -0 A END; 

2 42 — 

2 45 — {This calls the DoToHandle Procedure once for each handle LRect; user of this method must 

2 44 — set up the pen pattern and mode before call ing] 

2 45 — A PROCEDURE TBox. Pa intHandles; 

2 46 — VAR hLRect, 

2 47 — ShapeLRect: LRect; 

2 48 — dh, dv: LONG INT; 

2 49 — 

2 50 — B PROCEDURE MoveHandl eAndPaint(hOf fset, wOffset: LONGINT); 

2 51 0- B BEGIN 

2 52 — Of fsetLRect( hLRect, hOffset, vOffset); 

2 55 — Paint LRect (hLRect); 

2 54 -0 B END; 

2 55 — 

2 56 0- A KGIN 

2 57— {$IFC nr»ce}BP(10);{$ENDC} 

2 58 — Set LRect (hLRect, -5, -2, 5. 2); 

2 59 — 

2 60 — ShapeLRect : - SELF. shapeLRect; 

2 61 — yiTH ShapeLRect 00, 

2 62 1- BEGIN 

2 65 — dh :- right - left; 

2 64 — dv : ■ bottom - top; 

2 65 — MoveHandl eAndPaint( left, top); {drau top left handle} 

2 66 -1 END; 

2 67 — MoveHandl eAndPaintfdh, 0); (then top right} 

2 68 — MoveHandl eAndPaintCO, dv): then bottom right} 

2 69 — MoveHandl eAndPaint(-dh, 0); {finally bottom left} 

2 70— {$IFC f Trace} EP;{$£NDC} 

2 71 -0 A END; 

2 72 — 

2 75 — END; 

2 74 — 

2 75 — 

2 76 — METHODS OF TBoxVieu; 

2 77 — 

2 78 — A FUNCTION TBoxV ieu. CREATE( ob ject : TObject; itsHeap: THeap; itsPanel: TPanel; itsExtent: LRect) 

2 79 — : TBoxVieu; 

2 80 0- A BEGIN 

2 81— f$IFC fTrace}BP(ll); {$ENDC} 

2 82 — IF object - NIL THEN 

2 85 — object :- NeuObjectC itsHeap, THISCLASS); 

2 84— SELF :• TBoxVieu(it$PaneI.NeuVieu(object, itsExtent, TPrintManager CREATE(N1L, itsHeap). 

2 85 — stdflargins. TRUE)); 

2 86 — {$1FC fTrace)EP;{$ENOC} 

2 87 -0 A END; 

2 88 — 

2 89 — 

2 90 — {This returns the box containing a certain point} 

2 91 — A FUNCTION TBoxVieu. BoxW it h(LPt: LPoInt): TBox; 

2 92 — VAR box: TBox; 

2 95 — $: TLlstScanner; 

2 94 0- A BEGIN 

2 95 — {$1FC nrace}BP(ll);{$ENDC} 

2 96 — boxUith : • NIL; 

2 97 — $ :• SELF. boxList. Scanner 

2 98 — ItHILE s. Scan(box} DO 

2 99 — IF LPtInLRect(LPt. box. shapeLRect) TWN 

2 100 — boxyith :■ box: 

2 101 — {$1FC nr»ce}EP; {SENDCJ 

2 102 -0 A END; 

2 105 — 

2 104 — 



21 Rug 1984 12:33:27 U3B0XER.TEXT Page 



05 ~ {This draus the 1 l$t of boxes) 

06 ~ A PROCEDURE TBoxVieu. Drau; 

07 — VAR box: TBox; 

08 — $: TLlstScarmer 

09 0- A BEGIN 

10— {JIFC nrace)BP(lO); {JENDC} 

11 — $ :■ SELF, boxList. Scanner, 

12— WHILE $. Scan( box) DO 

13 — box. Drau; 

14 — {$IFC fTraceJEP; {SENDC) 

15 -0 A END; 

16 — 

18 — A PROCEDURE TBoxVieu. InltBoxLlst ( itsHeap: THeap); 

19 — VAR box: TBox; 

20 — boxList: TList; 

21 0- A BEGIN , , 

22— {$IFC nrace}BP(10);{$ENDC) 

23— boxList :- TList. CREATE( NIL, ItsHeap. 0); 

24 — SELF. boxList ;- boxList; 

25 — , , 

26 -- (create and append the first box] 

27— box :■ TBox. CREATEC N IL, ItsHeap); 

28— {$H-) SetLRect(box. shapeLRect. 20.20, 100, 100); {$H*) 

29— SELF. boxList. In$Last( box); 

30 — 

31 ~ {create and append the second box} 

32 — box :- TBox, CREATEC NIL, ItsHeap); 

33 — {$H-} SetLRect( box. ShapeLRect, 200, 100, 500, 150); {$H*) 
34— SELF. boxList. InsLastf box); 

55 — {$IFC nrace)EP;{$ENDC} 

56 -0 A END; 

37 — 

38 — A FUNCTION TBoxV leu. NoSelect ion; TSelection; 
59 0- A BEGIN 

40 — {$IFC fTrace}BP(ll);f$ENDC} 

41— NoSei ect ion :- TBoxSel ect ion. CREATEC N IL, SELF. Heap. SELF, nothingKind. zeroLPt); 

42— {$1FC nrace}EP;{$ENDCj 
45 -0 A END; 

44 — , 

45 — {This PROCEDURE makes a neu selection, uhen the user presses the mouse button] 

46 — {This procedure illustrates the "standard" way of creat ing a neu selection] 

47 — A PROCEDURE TBox View. HousePressCmouseLPt; LPoint); 

48 — VAR neuSel ect ion: TSel ect ion; 

49 — panel: TPanel; 

50 — box: TBox; 

51 0- A BEGIN 

52— {$1FC fTracejBPCll); {SENDC} 

53 — panel : • SELF, panel ; , , 

54— panel. Highl ightCsel f. panel, selection, hOntoOff); {Turn off the old highl ight ing] 

56 — neuSel ect ion : • sel f. panel . sel ect ion. FreedAndRepl acedByC TBoxSel ect ion. CREATEC NIL, SELF, heap, SELF, 

57 — boxSelect ionKind, 

58 — mouseLPt)); 

59 — 

60 — sel f. panel . sel ect ion : » neuSel ect ion; 

61 — 

62 — r»uSel ect ion. currLPt : - mouseLPt; 
65 — 

64 — box :- sel f.BoxUithC mouseLPt); {Find the box the user cl icked on] 

65 — IF box - NIL THEN 

66 — neuSel ect ion. k ind :■ nothingKind 

67 — ELSE 

68 — newSel ect ion. kind : ■ boxSel ect ionKind; 

69 — TBoxSel ect ionC neuSel ect ion) . box : ■ box; 

70 — , 

71 — panel. Highl IghtC neuSel ect ion, hOfHoOn); {Turn on the highlighting for the neuly selected box] 
72 

75 — sel f. panel, selection. Ha rkChanged; {Allou the document to be saved so that any changes made] 
74 — {can become permanent) 

76 — {$IFC nrace)EP; {SENDC) 

77 -0 A END; 

78 — 

79 — END; 

80 — 

81 — 

82 — HETHODS OF TBoxSel ect ion; 
85 — 

84 -- 

85 -_ A FUNCTION TBoxSelect Ion. CREATEC object: TObject; ItsHeap: THeap; itsVieu: TVieu; ItsKind: INTEGER; 
86— xtsAnchorLPt: LPoint): TBoxSel ect ion; 

87 0- A BEGIN , 

88— {$IFC fTrecelBPCll); {SENDC) 

89 — IF object • NIL THEN ' 

90 — object ;- NeuObjectC itsHeap, THISCLASS); ^ ^. ^ ,. ^ ^ wo.^^ 

91— SELF :• TBoxSel ect lon( TSel ect ion. CREATEC object, itsHeap, itsVieu, itsKind, itsAnchorLPt)); 



92 

95 — SELF, box :- NIL; 

94— {$IFC nrace)EP;{$ENDC) 

95 -0 A END; 

96 — 

97 ~ {This draus the handles on the selected box) 

98 — A PROCEDURE TBoxSel ect ion. Highl ightChighTrans it; THighTransit); 

99 — VAR box: TBox; 

2 200 0- A BEGIN ,_ 

2 201 — {$IFC nrace)BPCll);{$ENDC} 

2 202 — IF SELF, kind <> nothingKind THEN 

2 205 1- BEGIN 

1 205 " th«»Pad.SetPenToHighl IghtChighTrans it); {set the drauing mode according to desired highlighting] 

2 206 — box. PalntHandles; {drau the handles on the box] 
2 207 -1 END; 

2 208— {$IFC nrace]EP;{$ENDC] 

2 209 -0 A END; 

2 210 — 

2 211 — END; 

2 212 — 

2 215 — 

2 214 — HETHODS OF TBoxProcess; 
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2 215 — 

2 216 — A FUNCTION TBoxProcess. CREATE: TBoxProcess; 

2 217 0- A BEGIN 

2 218— f$lFC nr»celBP(ll);f$ENOC) 

2 219— SELF ; ■ TBoxProcess(TProcess. CREATE(NeuObject(mainHeap, THISCLASS), mainHeap)); 

2 220 - {$IFC nrac«}EP; (SENDC) 

2 221 -0 A END; 

2 222 — 

2 225 — 

2 224 — A FUNCTION TBoxProcess. NewOocManager( vol umePrefix; TFilePath; openAsTool: BOOLEAN): TDocManager, 

2 22S 0- A BEGIN 

2 226— {$IFC n race) BP( 111; {SENDC] 

2 227 — NeuDocManager : - TBoxDocManager. CREATE(NIL, walnHeap, vol umePrefix); 

2 228— {$1FC nr»ce}EP;{$ENDC) 

2 229 -0 A END; 

2 250 — 

2 251 — END; 

2 252 — 

2 255 — 

2 25A — 

2 255 — METHODS OF TBoxDocManager, 

2 256 — 

2 257 — A FUNCTION TBoxDocManager. CREATE( object: TObject; itsHeap: THeap; ItsPathPref ix; TFilePath) 

2 258 — : TBoxDocManager; 

2 259 0- A BEGIN 

2 240— {$IFC nrace)BP{ll);{$ENDC) 

2 241 — IF object -NIL T^€N 

2 242— object :- NeuObjectf it sHeap, THISCLASS); 

2 245— SELF ;■ TBoxDocManagerf TDocManager. CREATEC object, itsHeap, itsPathPref ix)); 

2 244— {$IFC fTrace]EP;{$ENDC] 

2 245 -0 A END; 

2 246 — 

2 247 — 

2 248 — A FUNCTION TBoxDocManager. NeuliJindou( heap: THeap; umgrlD: TUindouID): TUindou; 

2 249 0- A BEGIN 

2 250— {$IFC nrace)BP(ll);{$ENDCl 

2 251— NeuUindou : ■ TBoxUindou. CREaTE(NIL, heap, umgrlD); 

2 252 — {$IFC nrace}EP; {SENDC) 

2 255 -0 A END; 

2 254 — 

2 255 — END; 

2 256 — 

2 257 — 

2 258 — 

2 259 — METHODS OF TBoxUindou; 

2 260 — 

2 261 — A FUNCTION TBoxUindou. CREATE( object; TObject; itsHeap: THeap; itsUmgrlD; TUindouID): TBoxUindou; 

2 262 0- A BEGIN 

2 



2 265— ($IFC nnice)BP(lO); {$ENDC) 

2 264 — IF object -NIL THEN 



2 265 — object :■ NeuObject( itsHeap, THISCLASS); 

2 266— SELF :• TBoxWindou[TUindou.CREATE( object, itsHeap, itsWmgrlD. TRUE)); 

2 267 — {$IFC nr»ce)EP; {SENDC) 

2 268 -0 A END; 

2 269 — 

2 270 — A PROCEDURE TBoxWindou. BlankStat ionery; 

2 271 — VAR vieuLRect: LRect; 

2 272 — panel: TPanel; 

2 275 — boxVieu: TBoxVieu; 

2 274 — aSel act ion: TBoxSel ect ion; 

2 275 — 

2 276 0- A BEGIN 

2 277 — {$IFC fTrace)BP(10);{$ENDC) 

2 278 — panel :• TPanel . CREATE( N IL, SELF. Heap. SELF. 0, 0. (aScroll. aSplit]. [aScroll. aSplit)); 

2 279 — 

2 280 — SetLRect( VieuLRect, 0. 0, 5000, 5000); 

2 281— boxVieu :- TBoxVieu. CREATE(NIL, SELF. Heap, panel, vieuLRect); 

2 282— boxVleu. InitBoxListC SELF. Heap); 

2 285 — 

2 284— {$IFC nrace)EP;{$ENDC} 

2 285 -0 A END; 

2 286 — 

2 287 — END; 

2 288 — 

1 117 — 

1 118 — END. 
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[Segment 7] 

Moving Boxes 



Purpose of thft segment: 

1) To (Ascribe how to move a box across the view. 
2} To introduce the concept of invalidation. 

How to use this segment: 

This is the seventh segment of the self-paced introduction to the TooiKit. 
This segment immediately follows the "Selections" segment. The next segment 
after this is "Creating A Box". 

This segment concerns moving (or dragging) existing boxes across the screen. 
It comprises a tutorial and a tab. 

So far you have been able to select and deselect one of a fixed number of 
boxes in your document. That capability will be enhanced in this segment to include 
the ability to drag a box, unharmetL from one place to another. 



INTRODUCTION TO DRAGGING (moving an object) 

With the aid of the mouse, users are able to drag objects within a window. 
This is very convenient way to organize items within a document. 

The dragging procedure we will study involves the following steps: 

1) Identify the selected box at the mouse down event. 

2) At each mouse move event: 

a) Determine the box's new position. 

b) Erase the box at Its old position. 

c) Redraw the box at its new position. 

As you can see dragging is actually erasing and redrawing. An alternative procedure 
that we will not study erases on mouse down, redraws on mouse up, and XOR's twice 
at each mouse move. It is faster, but less impressive. 

The Lisa user Interface suggests a nice way to implement box dragging using 
the mouse. The mechanism is similar, though not identical, to that used by 
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LisaOraw. The procedure is to move the box the distance that the mouse moves. )f 
the mouse cursor is dragged past a panel border^ the view scrolls so the user can 
move the box further. 



MCXJSE MOVEMENTS 

As moves the mouse so move our boxes. This section explains how mouse 
movements are detected and processed by the Generic Application. 

Mouse movements are detected only v/hile the mouse button Is down. Once 
the mouse button is depressed^ it is the panel's job to track movements of the 
mouse. 

The panel translates mouse movements into mouse move events. Bear in 
mind that these are not events in the strictest sense, since they are not generated hy 
the window manager. From the panel mouse move events flow to either the view 
or the selection. 

Although the panel detects very minute movements of the mouse, the first 
few movements are not translated into events. The main reason for this is 
hysteresis 

hysteresis 

"Behind cancer^ hysteresis is the number tvw) killer In this country." - a 
quack. 

Hysteresis may sound bad, but it is really quite harmless. Quite simply; 
hysteresis is the distance the mouse must move before dragging can begin. It is a 
distance allowance for unsteady hands. This user friendly feature allows all but the 
most inept users to jiggle the mouse with the button dovm without disturbing the 
view. 

Specifically, hysteresis is a set of two numbers. Each number represents a 
distance in pixels. These distances are applied to movements of the mouse to 
determine v/hether the first mouse move has occurred. One distance is applied 
horizontally, the other is applied vertically. The Toolkit constants, below, indicate 
the default hysteresis values: 

stM^steresls * 9; Ulflole «lloMnce horizontally) 
stM^teresis « «; {Jiggle alloiMnce veitiully) 

If the mouse movement exceeds neither hysteresis value, horizontally or 
vertically, the mouse cursor coordinates reported are those of the original position 
(the selection's anchor LPoint). 

htow that you know about mouse moves, the next concept essential to dragging 
boxes is invalidation 



INVALIDATION 
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Invalidation 
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tnvatiddtion lets you erase and recNraw boxes, or other graphical objects, in a 
clean and simple way. Particularly Important when erasing, invalidation lets you 
easily restore the view obscured by the box. 

Ch^tges such as moving a box around in the view make the window's current 
display invalid. All or part of the display may need to be redrawn to reflect the 
altered contents of the view. Specifically, what will be changed are those portions 
of the screen displaying the areas of the view that the application has declared 
invalid. 

(Note: Scrolling also Invalidates the display, but it is taken care of automatically by 
the Generic Application, See the section "Scrolling " belong for a more detailed 
explanation.) 

Invalidation indicates the parts of the window' that have become invalid 
because of a change in the view. Recall that the view is a Clascal object controlling 
the data objects to be displayed. The boxVtew*s boxList field, for example, holds a 
list of boxes to be drawn. A box can be added to or removed from the list without 
immediately affecting the screen. 

As you may have guessed, invalidation is intimately related to the window 
update region. 

from LRect to Rect 

Invalidation starts in the view, but ends in the window's update region. As 
the illustration: "Invalidation" shows, a 32-bit LRect in the view is invalidated by 
the application. This might be a box*s shape LRect for instance. 

Next, for each pane in the view's panel the following occurs: 

The intersection of the invalid LRect with the pane's viewed LRect is 
translated into a corresponding IB-bit Rect (in window coordinates). 
This invalid Rect is a piece of the screen area to be updated in the 
window. 

If not empty, that invalid Rect is added to the update region, faecal I 
that the update region is initially empty. It is set to empty after each 
window update. 

Invalidation is complete when the last pane has added its invalid Rect to the 
update region. 

building the update region 

The application builds up the update region by Invalidating one or more LRects 
in the view. As you recall from the previous segment, the update region is the area 
drawn into when the window updates the display. 

The ToolKit method. {TPanet.}invalLRect is used to invalidate an LRect in the 
view. The fragmented code below Illustrates how this method is used: 

niOCQWRE (nvseltction.) Nouseltove{(MMselft. Ifoint)); {iwves the box the disunce 

tiktt the WKise has Roved) 
▼wt DOX: IDOX; 
^anel: TPtnel; 
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BniN 
box :* scLf.box; <0et tue selectM tox) 
panel :« scLf.pmei; 

{invftUdate the old position of the box) 
pmel. InvilLRectCbox. sMpeUlect); 

{conpute the distMKe the Rouse has Roved (code onitted) 
coiVMite nev positioii of the box (code onitted) 

offset the box's shape IRect ap^opriately (code onitted)) 

(invalidate the nev position of the box) 
panel. In¥alLAect(box. sh^eUlect); 
(.•-) 
WD; 

DETAILS OF THE WINDOW UPDATE 

Once the update region has been built the window is updated. After a mouse 
move event, the update is irrwnediate. 

One of the most relevant features of the update for box moves is that the 
update area is erased before redrawing occurs within It. This means that you only 
need to invalidate a moving box at its former position to erase it. To redraw, you 
simply invalidate the box at Its new position. 

The details of how the update works are listed below. 

1. Install the update region as the visRga* save the former visRgn. 

2. If the update region is empty, then restore the former vIsRgn, and 
return to process the next event. 

Otherwise^ 

3. Prepare to highlight if needed. 

4. Erase the update region by filling It with white. 

5. Refresh the window frame (only parts within the update region). 

6. Tell its panels to refresh thennselves, each of which: 

tells its visible panes to refresh themselves, each of which: 

a. Frames itself, and focuses (focusing ctips to the 

intersection of the pane's inner F^t wtHi the visRgnX 

b. Positions the view frame properly within the pane. 

c. Has the view draw itself. (view^Draw) 

d. Has the selection highlight Itself, If needed. 

(setection.Hightight) 
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e. Restores the former focus area (this restores thecfip 
region to its former state). 

1. Restore the former visRgn^ and return to process the next event. 



IMPLEMENTATION STRATEGY 

We modify the previous stage of Boxer^ 3Boxer^ to support dragging. The user 
interface Is %Mimmdic\z^ below. 

user interface 

Two boxes are displayed in the window. The oser depresses the mouse button 
to select a box. 

The user keeps the mouse button depressed to move the selected box. CDnce 
hysteresis is satisfied, each movement of the mouse causes the selected box to be 
moved proportionately. 

The user releases the mouse button when finished moving the box. The box 
remains at its final position. 

theory of operation 

The implementation of dragging follows the algorithm below: 

To move a box the application must do the following. 

1. When the mouse button is pressed, set the selection anchor LPoint 
and current LPoint (the current LPoint is the iast place the mouse 
was traclced. Initially it is the same as the anchor LPoint.) 
Determine the selected box. 

The Generic Application takes over here. When hysteresis has been satisfied, it sends 
a mouse move event to the selection according the following flow of control: 

pane.MouseTrack {TPane.} 

view.MouseTrdck {TInriage.} 

view.MouscMove {TImage.} default method 

seiection.MouseMove {TBoxSeiection.} 

Your code is called from here. 



2. Extract the current mouse LPoint. Compute the amount the mouse 
has moved since the last nruxise move event. This is done in 
{TBoxSelection.jMouseMove. 

3. If the mouse has nruived, then do the following: 

a. Update the selection's current LPoint. 
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b. invalidate the box's old shape LRect (the erase phase). 

c. Offset the box's shape LRect by the movement of the mouse. 

d. Invalidate the box's new shape LRect. 

The Generic A)plication now updates the window. As long as the mouse is down it 
continues to generate mouse move events. When the mouse button is released^ the 
Generic Application makes the following calls: 

pane.MouseTrack {TPane.} 

vlew.MouseRelease {Tlmage.} cfefautt method 

selection,MouseReiease {TSelectionJ defsuit method 

The default action in {TSetection.}MouseRelease is to do nothing. Your code does 
not need to ^^^dxnoi^ that. 

actual imptementation 

The actual implementation for 4Boxer is summarized below. The code for 
3B(»(er is used as base for the changes. 

New Classes 

none 
New Methods (for existing classes) 

none 

Overridden Methods 
niMSei«ttl«»] 
phoccourc {nioxseiection.) nousenwe «iieuseLPt: UPolnt)): 

{TBoxSelection.]Mou$eMave saves the mouse LPoint in 
SELF.currLPt, a field inherited from TSelection. Before it does 
that/ though, it computes the difference between mouseLPt and 
SELF.currLPt. This is the amount that the box's shape LRect 
will be offset. 



OFFSETTING A BOX 

Offsetting a box means offsetting its shape LRect. The line below uses the 
ToolKit procedure, OffsetLRect to offset a box k^ 30 pixels horizontally and 20 
pixels vertically. 



VM ywffOox: IBox; 
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Of f setUlect(y«ir0ox. sMpeltoct, 30. 20); 

In 46oxer the distance is computed as a point. This point is the difference 
between the mouse LPoint (mouseLPt) and the current LPoint (select ion.currLPt). 
The ToolKit procedure, LPtMinusLPt, is used to compute the difference. 

pnocowRC (Tooxselection.) iiM9ellove«Muselft: ifoint)); 
VKR distMce. Lfoint; 

{^second iFoint is subtitcted fiM the fiist to yield ttie difference, 
Mrdcti is letunied as the third iPoint) 
LPtKiwjsUPKnouselft, SCLF.airrlM. difflft); 

The following line now offsets the box, yourBox, by the distance computed above. 

OffsetLftect(SCLF.box.shapeLRect, difflft.h, difflft. v); 

SCROLLING (Optional) 

If the cursor passes the panel boundary and the panel was created with the ability 
to scroll, then the Generic Application scrolls automatically before each call on your 
mouse move method. 



Questions: 

1) Does dragging occur while the mouse button is up or down? 

2) What is the difference between the selection's current LPoint and its 
anchor LPoint? 

3) Requiring that the mouse moves a minimum distance is known as 
"enforcing hysteresis". While the mouse button is depressed, how often is 
hysteresis enforced? 

4) Why invalidate a box*s shape LRect to erase it instead of erasing the box's 
shape LRect directly? 

5) How many invalidations are needed to move a box? 

What does the update region look like after that (those) invalidations? 

6) How is an invalid LRect converted to an Invalid Rect? 
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Box Move Lab 



To implement dragging a box. 

^^)dt you ore about to do: 

You will compile and run 4Boxcr, then optionally modify the source. This 
should be done in the following steps*. 

1) Copy the following files onto your prefix volume. 

4UBoxer-TEXT 
4UBoxer2.TEXT 
4rBoxer.TEXT 
4PBoxer.TEXT 

2) Compile, install, and run the sample application, 4Boxer. Use 44 as 
the tool number. 

3) Scan the listings of the four files in the sample application. These 
are included in the appendix, "Code Samples for this Segment". ' 

4) [Optional] Extend the application you designed in step 4 of the 
"Selections" lab to support dragging multiple boxes. 

Please review the "Selections" lab. 

Things to look ait for: 

- Utile black squares strewn all o\,^er the screen. 

Remember to erase the box highlighting when erasing any box. 

- Box can be mov<w^ only a short distance. 

Check whether you update selcction.currLPt. 

- Boxes multiply like rabbits. 

Check what you are actually invalidating. 
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PBOXER. TEXT for Box»r 
; Phrasa fll* for Boxer class axainpla 
1 
5 

2500 
S-KBOOT-TK/PftBC 

; Appla building block phrasa fil as can ba included here 

1000 
Boxer 

; Other application alerts can be included here, numbered batueen 1001 and S2000 



1 

$-»BOOT-TK/PftBC~F il a/Print 

2 

Page Layout 

Preview ftctual PagesaAOl 
Previeu Page Breaks«402 
Don't Preview Pages '403 

100 

Buzzwords 

Set As ide lOocument T*109 
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PROGRAH H4Boxer 
USES 



{$U UObJect } UObJect, 

{$1FC llbraryVersion <- 20} 

f$U UFont) Cront, 

{JtNOO 

$U OuickDrau } OulckDrau, 
SU UOrau } uOrau, 



;$U UABC } UABC, 
{$U UABoxar } UABoxer, 

CONST 

phras«V«rs ion » 1; 

BEGIN 

procsss : • TBoxProcess. CREATE; 
process. Coffln«nce(phra$eVerslon}; 
process. Run; 
process. Compl et8( TRUE) ; 

END. 
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UNIT U4Boxer; 
INTERFACE 

USES 

{$U UObject) 



UObject, 



{JIFC 1 ibraryVerslon <• 20 

{$U UFont} 
{JENDC} 



i. 



ont, 



$U OuickDrau} 
■$U UDrau) 
'$U UABC} 



CONST 

colorWhite - 1; 
CDlorLtGray ■ 2; 
colorGray ■ 3; 
colorOkGray - 4; 
coloreiack « 5; 



OuickDrau, 

UDrau, 

UABC; 



boxSelect ionKind > 1; 



TYPE 



TColor - colorUhite. . colorBlack; {color of a box} 
{Neu Classes for this Application} 
TBox - SUBCLASS OF TObject 



{Variables} 

shapeLRect: 
color. 



LRect; 
TCol or. 



{Creat ion/Destruct ion} 

FUNCTION TBox. CREATE( object; TObject; itsHeap: THeap): TBox; 

PROCEDURE TBox. Pa IntHandles; 

PROCEDURE TBox. Drau; 

END; 



TBoxVieu - SUBCLASS OF TVieu 



{Variables} 
boxList: 



TLlst; 



{Creation/Destruction} 

FUNCTION TBoxVieu. CREATE( object: TObject; ItsHeap: THeap; ttsPanel: TPanel ; itsExtent; LRect) 

; TBox V leu; 

FUNCTION TBoxVieu. BoxUith(LPt: LPoint): TBox; 

PROCEDURE TBoxVieu. Drau; OVERRIDE; 
PROCEDURE TBoxVieu. InitBoxList( itsHeap: THeap); 
FUNCT ION TBoxV ieu. NoSel ect ion: TSel ect ion; OVERR IDE; 
END; 

TBoxSel ect ion - SUBCLASS OF TSel ect ion 

{Variables} 
box: TBox; 

{Creat ion/Destruct ion} 
FUNCTION TBoxSel ect ion. CREATE( object: TObject; itsHeap: THeap: itsVieu: TVieu; itsKind: INTEGER; 

jtsAnchorLPt: LPoint): TBoxSel ect ion; 

{Drauing - per pad} 
PROCEDURE TBoxSelection. Highl i8ht(highTransit: THighTransit); OVERRIDE; 

{Selection - per pad} 

PROCEDURE TBoxSelection. MousePress(roouseLPt: LPoint); OVERRIDE; 
PROCEDURE TBoxSelection. Mousenove(inouseLPt: LPoint); OVERRIDE; 
END; 

TBoxProcess ■ SUBCLASS OF TProcess 

{Creation/Destruction} 
FUNCTION TBoxProcess. CREATE: TBoxProcess; 
FUNCTION TBoxProcess. NeuDocf1anaQer( vol umePrefix; TFilePath; openAsTool ; BOOLEAN) 

: TDocManager; OVERRIDE; 
END; 

TBoxDocManager • SUBCLASS OF TOocHanager 

{Creation/Destruction} . „ ^„ ,. xf- •, b .u> 

FUNCTION TBoxDocManager. CREATE( object: TObject; itsHeap: THeap; ItsPathPref ix: TFilePath) 

; TBoxDocHanagen 
FUNCTION TBoxDocManager. NeuWindou{ heap: THeap, umgrlD: TUindouID): TWindou; OVERRIDE; 
END; 

TBoxWindou • SUBCLASS OF TUindou 
{Variables} 

FimmON *TBoxUindou.CREATE( object: TObject; ItsHeap: THeap; itsWmgrlD: TWindouID): TBoxUindou; 

{Document Creation} ^..r«„„>r 

PROCEDURE TBoxWindou. BlankSt at lonery; OVERRIDE; 
END; 
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f$l U4Boxer2. text) 
[U4B0XER2) 
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METHODS OF TBox; 





A 


FUNCTION TBox. CREATE( object: TObject; itsHeap; THeap): TBox; 


2 


6 


0- 


h 


BEGIN 


2 


7 


— 




($IFC nrace}BP(ll):{$ENDC) 

SELF : > NeuObJectf itsHsap, THISCLASS); 


2 


8 


— 




2 


9 


— 




WITH SELF DO 


2 


10 


1- 




BEGIN 


2 


11 


— 




shapeLRect : ■ zeroLRect; 


2 


12 


__ 




color : > colorGray; 


2 


15 


-1 




END; 


2 


lA 


— 




(JIFC nrace}EP; {$ENDC) 


2 


15 


-0 


A 


END; 


2 


16 


— 






2 


17 


— 




{This draus a part Icular box) 


2 


18 


-- 


A 


PROCEDURE TBox. Drau; 


2 


19 






VAR IPat: LPattem; 


2 


20 


0- 


A 


BEGIN 


2 


21 






fJIFC nracelBP(10);{$ENDC) 
PenNormal ; 


2 


22 


-- 




2 


25 


-- 






2 


24 


— 




IF LRect I$V is lble( SELF. ShapeLRect) THEN {this box needs to be draun) 


2 


25 


1- 




BEGIN 


2 


26 


— 




{Get a Quickdrau pattern to represent the box's color) 


2 


27 


2- 




CASE SELF, col or OF 


2 


28 


-- 




coIorUhite: IPat 


- IPatyhite; 


2 


29 


— 




col orLt Gray: IPat 


■ IPatLtGray; 


2 


30 


-- 




col orGray: I Pat 


« I Pat Gray; 


2 


51 


— 




col orOkGray: 1 Pat 


- IPatDkGray; 


2 


52 


-- 




colorBlack: IPat 


- IPatBlack; 


2 


53 


-- 




OTHERWISE IPal 


■ IPatUhite; {this case should not happen) 


2 


54 


-2 




END; 


2 


35 


-- 






2 


56 


-- 




{Fill the box uith the pattern, and drau a frame around it) 


2 


57 


-- 




FillLRectC SELF. ShapeLRect. IPat); 


2 


58 


— 




F rameLRect ( SELF. shapeLRect ) ; 


2 


59 


-1 




END; 


2 


40 


— 




{$IFC nrace)EP;{$ENDC) 


2 


41 


-0 


A 


END; 


2 


42 


— 






2 


43 


-- 




{This calls the DoToHandle Procedure once for each handle LRect; user of this method must 


2 


44 


— 




set up the pen pattern and mode before call ing) 


2 


45 


— 


A 


PROCEDURE TBox. PalntHandles; 


2 


46 


-- 




VAR hLRect, 


2 


47 


— 




ShapeLRect: LRect; 


2 


48 


>- 




dh, dv: LONG INT; 


2 


49 


.- 






2 


50 


— 


B 


PROCEDURE MoveHandleAndPaint(hOffset. vOffset: LONGINT); 


2 


51 


0- 


B 


BEGIN 


2 


52 


— 




Of fsetLRectC hLRect, hOffset, vOffset); 


2 


53 


— 




Paint LRect (hLRect); 


2 


54 


-0 


B 


END; 


2 


55 


— 






2 


56 


0- 


A 


BEGIN 


2 


57 






( $ IFC n race) BP( 10) ; { JENDC) 
Set LRect (hLRect, -3, -2, 3, 2); 


2 


58 


-- 




2 


59 


— 




ShapeLRect : • SELF. shapeLRect; 


2 


60 


— 




WITH ShapeLRect DO 


2 


61 


1- 




BEGIN 


2 


62 


— 




dh :• right - left; 


2 


63 


— 




dv : ■ bottom - top; 


2 


64 


— 




HoveHandleAndPaint(Ieft, top); {drau top left handle) 


2 


65 


-1 




END; 


2 


66 


-- 




rtoveHandIeAndPaint((»i, 0); 
tloveHandleAndPaintrO, dv): 


then top right) 


2 


67 


— 




then bottom right) 


2 


68 


— 




MoveHandleAndPaintf-dh. 0); 


finally bottom left) 


2 


69 


— 




{$IFC nr»ce)EP; {SENOC) 


2 


70 


-0 


A 


END; 


2 


71 


-- 






2 


72 


— 




END; 


2 


75 


— 






2 


74 


-- 






2 


75 


~ 




HETHODS OF TBoxVieu; 


2 


76 


__ 






2 


77 


— 


A 


FUNCTION TBoxVieu. CREATE( object; TObject; itsHeap: THeap; itsPanel: TPanel; itsExtent; LRect) 


2 


78 


.. 




: TBoxVieu; 


2 


79 


0- 


A 


BEGIN 


2 


80 






($IFC nrace)BP(ll);{$ENDC) 
IF object - NIL THEN 


2 


81 


— 




2 


82 


-. 




object :■ NeuObject( itsHeap, THISCLASS); 


2 


83 


— 




SELF :- TBoxVleu( itsPanel. NeuVieu( object, itsExtent, TPrintttanager. CREATE(NIL, itsHeap), 


2 


84 


— 




stdttargins. TRUE)); 


2 


85 


— 




{JIFC nrace}EP; {SENDC) 


2 


86 


-0 


A 


END; 


2 


87 


~ 






2 


88 


.- 






2 


89 


— 




{This returns the box containing a certain point) 


2 


90 


— 


A 


FUNCTION TBoxVieu. BoxUith(LPt: LPoint): TBox; 


2 


91 


-- 




VAR box: TBox; 


2 


92 


— 




$; TLlstScanner; 


2 


93 


0- 


A 


BEGIN 


2 


94 






{$1FC fTracelBP( 11); {JENDC) 
boxyith :- NIL; 


2 


95 


-- 




2 


96 


... 




s :• SELF. boxList. Scanner 


2 


97 


.- 




WHILE s. Scan(box) DO 


2 


98 


— 




IF LPtInLRect(LPt, box. shapeLRect) THEN 


2 


99 


_. 




boxUith : ■ box: 


2 


100 


— 




{$1FC nrace}EP; {SENDC) 


2 


101 


-0 


A 


END; 


2 


102 


~~ 






2 


103 


— 






2 


104 


— 




{This draus the list of boxes) 


2 


105 


.- 


A 


PROCEDURE TBoxVieu. Drau; 


2 


106 


.. 




VAR box: TBox; 


2 

V 


107 


— 




$: TListScanner; 
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2 108 0- A BEGIN 

2 109— {JIFC nr*ce)BP{10);[$ENDC) 

2 110 — s ;■ SELF. boxList. Scanner 

2 111 — WHILE $. Scan(box) DO 

2 112 — box. Draw, 

2 113 — {$1FC nrace)EP:{$ENDC) 

2 114 -0 A END; 

2 115 ~ 

2 116 — 

2 117 — fit PRXEDURE TBoxVieu. InitBoxLlsl ( itsHeap; THeap); 

2 118 — VAR box: TBox; 

2 119 — boxList: TList; 

2 120 0- A BEGIN 

2 121— {$IFC fTrace}BP(10):{$ENDC} 

2 122— boxLlst :- TList. CREATE(NIL, ItsHeap, 0); 

2 125— SELF. boxLlst :• boxList; 

2 124 — , 

2 125 — {create and append the first box] 

2 126 — box :- TBox. CREATE( NIL, itsHeap); 

2 127— {JH-) SetLRect(box. shapeLRect, 20.20, 100, 100); {$H*) 

2 128— SELF. boxList. InsLastC box); 

2 129 — , , 

2 130 — {create and append the second box} 

2 131— box :- TBox. CREATE( NIL, itsHeap); 

2 132— {$H-) SetLRect( box. ShapeLRect, 200, 100, 300. 130); {$H-} 

2 133— SELF. boxLlst. InsLast( box); 

2 134— {$IFC nrace)EP;{$£NDC} 

2 135 -0 A END; 

2 136 — 

2 137 — 

2 138 — A FUNCTION TBoxVieu. NoSelect ion: TSelection; 

2 139 0- A BEGIN 

2 140— {$IFC fTrace}BP(ll);f$ENDC) 

2 141— NoSelectlon : • TBoxSelection. CREATE(NIL, SELF. Heap, SELF, nothingKind, zeroLPt); 

2 142— {$IFC fTrace}EP;{$ENDC) 

2 143 -0 A END; 

2 144 — 

2 145 — END; 

2 146 — 

2 147 — 

2 148 — 

2 149 — HETHODS OF TBoxSelection; 

2 150 — 

2 151 — A FUNCTION TBoxSel ect ion. CREATE( object. TObject; itsHeap: THeap; itsVieu: TVieu; ItsKind: INTEGER; 

2 152 — ItsAnchorLPt: LPoint): TBoxSelection; 

2 153 0- A BEGIN 

2 154— {JIFC rr race} BP( 11); (JENDC) 

2 155 — IF object -NIL THEN 

2 156— object :- NeuObiect( itsHeap, THISCLASS); 

2 157— SELF :■ TBoxSel ect ion{ TSelection. CREATE( object, ItsHeap, ItsVieu, itsKind, itsAnchorLPt)); 

2 158 — 

2 159 — SELF, box : ■ NIL; 

2 160 — {$IFC nrace]EP; {$ENDC} 

2 161 -0 A END; 

2 162 — 

2 163 — 

2 164 -- {This draus the handles on the selected box} 

2 165 — A PROCEDURE TBoxSelection. Highl i0ht(highTransit: THighTransit); 

2 166 0- A BEGIN 

2 167— {JIFC n race} BP( 11); {JENOC} 

2 168 — IF SELF, kind <> nothingKind THEN 

2 169 1- BEGIN 

2 170 — thePad. SetPenToHighl lght(highTran$it); {set the drawing mode according to desired highlighting] 

2 171 — SELF. box. PaintHandles; {drau the handles on the box] 

2 172 -1 END; 

2 173— {JIFC n race} EP;{$ENDC} 

2 174 -0 A END; 

2 175 — 

2 176 — 

2 177 — {This is another uay to make a new selection, when the user presses the mouse button] 

2 178 — {Just keep the old selection object and replace its data fields with neu values. This Isn't the} 

2 179 — {standard paradigm for creating neu selection objects, but it certainly works (at least in this case).} 

2 180 — A PROCEDURE TBoxSelection. Mou$ePress(aiouseLPt: LPoint); 

2 181 — WAR boxVieu: TBoxVieu; 

2 182 — aSel ect ion: TSel ect ion; 

2 183 — panel: TPanel; 

2 184 — box: TBox; 

2 185 0- A BEGIN 

2 186— {JIFC n race} BP( 11); {JENDC} 

2 187 — WITH SELF DO 

2 188 1- BEGIN 

2 189 — anchorLPt : - iiouseLPt; 

2 190 — currLPt : • laouseLPt; 

2 191 -1 END; 

2 192 — 

2 193— boxVieu ;- TBoxVieu( SELF, view); 

2 194 — panel : • SELF, panel ; 

2 195— panel. Hlghl ight( SELF, hOntoOff): {Turn off the old highl ighting} 

2 196 — 

2 197 — box ;■ boxVieu. BoxWith(«ouseLPt); {Find the box the user clicked on} 

2 198 — IF box - NIL THEN 

2 199— SELF, kind :- nothingKind 

2 200 — ELSE 

2 201 — SELF, kind :- boxSelect ionKind; 

2 202 — SELF, box : ■ box; 

2 203 -- 

2 204— panel. Highl ightC SELF, hOffToOn); {Turn on the highl ight ing for the newly selected box] 

2 205 — 

2 206 — $el f. HarkChanged; (Allou the document to be saved so that any changes made can become permanent] 

2 207 — 

2 208 — {JIFC nr*ce}EP; {JENDC] 

2 209 -0 A END; 

2 210 — 

2 211 — 

2 212 — {This is called when the user moves the mouse after pressing the button} 

2 213 — A PROCEDURE TBoxSel ect ion. MouseMove(mou$eLPt: LPoint); 

2 214 — WAR diffLPt: LPoint; 

2 215 — ShapeLRect: LRect; 

2 216 — ^ , 

2 217 — B PROCEDURE InvalTheBox( tnvalRect: LRect): 
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r 
2 218 0- 


B 


BEGIN 




2 219 — 




ISIFC nrace)BP(ll):{$ENDC) 

InselLRect( InvtlRect, -5.-2); (need to expand the invalidation rectangle to inval it 
SELF, panel. Inval LRect( inval Rect); (highlighting a$ uell as box! 




2 220 — 




Jate } 


2 221 — 






2 222 — 




$IFC nracejEP; (SENDC) 




2 225 -0 


B 




2 224 — 








2 225 0- 


A 


BEGIN 




2 226 — 




{$IFC nrace)BP(ll);{$ENOC) 




2 227 — 




IF SELF, kind <> nothingKind THEN 




2 228 1- 




BEGIN 




2 229 — 




(Hou far did mouse move?} 
LPtHtnusLPt(ii»useLPt, SELF. currLPt. diffLPt); 




2 250 — 






2 251 — 








2 252 - 




{Move it if delta is nonzero) 
IF NOT Equal LPt( diffLPt. zeroLPt) THEN 




2 255 — 






2 254 2- 




BEGIN 




2 255 — 




SELF. currLPt : - »ouseLPt; 




2 256 — 








2 257 — 




shapeLRect : ■ SELF. box. shapeLRect; 




2 25B — 




(Compute old and neu positions of box} 
Invaf TheBoxf shapeLRect ) ; 




2 259 — 






2 240 — 




Of fsetLRectf ShapeLRect. diffLPt. h, diffLPt. v); 
Inval TheBox( ShapeLRect ) ; 




2 241 — 






2 242 — 








2 245 ~ 




SELF. box. ShapeLRect : » shapeLRect; 




2 244 -2 




END 




2 245 -1 




END; 




2 246 — 




{$1FC nrace)EP; {SENDC) 




2 247 -0 


A 


END; 




2 248 — 








2 249 — 




END; 




2 250 — 








2 251 — 








2 252 — 








2 255 — 




METHODS OF TBoxProcess; 




2 254 — 








2 255 " 


A 


FUNCTION TBoxProcess. CREATE: TBoxProcess; 




2 256 0- 


A 


BEGIN 




2 257 ~ 




(SIFC nracelBP(ll);{$ENDC) 

SELF :- TBoxProcess(TProcess. CREATE(NeuObject(mainHeap, THISCLASS). mainHeap)); 




2 258 — 






2 259 — 




{$IFC fTrace)EP; {JENDC) 




2 260 -D 


A 


END; 




2 261 - 








2 262 — 








2 265 — 


A 


FUNCTION TBoxProcess. NeuDocManager( vol umePrefix: TFilePath; openAsTool: BOOLEAN): TDocManager; 




2 264 0- 


A 


BEGIN 




2 265 ~ 




{$IFC nrace)BP(ll);{$ENDC) 

NeuDocHanager : - TBoxDochanager. CREATE(NIL, rainHeap, vol umePrefix); 




2 266 — 






2 267 — 




{$1FC nrace]EP;{$ENDC] 




2 268 -0 


A 


END; 




2 269 — 








2 270 — 




END; 




2 271 — 








2 272 — 








2 275 ~ 








2 274 — 




METHODS OF TBoxDocManager 




2 275 — 








2 276 — 


A 


FUNCTION TBoxDocManager. CREATE( object; TObject; itsHeap: THeap; ItsPathPref ix: TFilePath) 




2 277 — 




: TBoxDocManager, 




2 278 0- 


A 


BEGIN 




2 279 — 




(JIFC nracelBP(ll);{$ENDC) 
IF object - NIL THEN 

object :- NeuObjectfitsHeap, THISCLASS); 




2 280 ~ 






2 281 — 






2 282 — 




SELF :■ TBoxDocManagerf TDocManager. CREATE! object, itsHeap, itsPathPrefix)); 




2 285 — 




{JIFC fTrace)EP; {SENDC) 




2 284 -0 


A 


END; 




2 285 — 








2 286 — 








2 287 — 


A 


FUNCTION TBoxDocManager. NewUindouC heap: THeap; umgrlD: TUindouIO): TUindou; 




2 288 0- 


A 


BEGIN 




2 289 -- 




JIFC fT race) BP( 11); {JENDC) 

leuUindou : - TBoxUindou. CREATECNIL. heap, umgrlD); 




2 290 — 






2 291 — 




{JIFC nrace)EP; {JENDC} 




2 292 -0 


A 


END; 




2 295 — 








2 294 ~ 




END; 




2 295 — 








2 296 — 








2 297 — 








2 298 — 




METHODS OF TBoxUindou; 




2 299 — 








2 500 — 


A 


FUNCTION TBoxUindou. CREATEC object: TObject; itsHeap; THeap; ItsUmgrlD: TUindouID): TBoxUindou; 




2 501 0- 


A 


BEGIN 




2 502 — 




(JIFC n race) BP( 10): {JENDC} 
IF object - NIL THEN 




2 505 — 






2 504 — 




object :- NeuObject{ itsHeap. THISCLASS); 
SELF :■ TBoxUindouCTUindou. CREATEC object, itsHeap, itsUmgrlD, TRUE)); 




2 505 ~ 






2 506 ~ 




{JIFC fTr«ce)EP; {JENDC} 




2 507 -0 


A 


END; 




2 508 — 








2 509 — 








2 510 — 








2 511 — 


A 


PROCEDURE TBoxUindou. BlankStationery; 




2 512 — 




VAR vieuLRect: LRect; 




2 515 — 




panel : TPanel ; 
boxVieu: TBoxUieu; 




2 514- 






2 315 ~ 




•Sal ect ion: TBoxSel ect ion; 




2 516 — 








2 517 0- 


A 


BEGIN 




2 518 — 




{JIFC n race) BP( 10); (JENDC) , , , 




2 519 — 




panel :• TPanel. CREAtE( NIL, SELF. Heap, SELF. 0, 0, {aScroll. aSpIit), {aScroll, aSplit]); 




2 520 — 








2 521 — 




Set LRect ( VieuLRect, 0. 0, 5000, 5000); 




2 522 — 




boxVieu :- TBoxVieu. CREATEC NIL, SELF. Heap, panel, vieuLRect); 




2 525 — 




boxVieu. InitBoxListCSELF. Heap); 




2 524 — 








2 525 — 




{JIFC fT race) EP; {JENDC) 




2 526 -0 


A 


END; 




2 527 — 
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[Segment 6] 

Creating a Box 

(A Second Selection Class) 



Purpose of this segment: 

1) To add the ability to create a box. 

2) To present the conditions warranting nnultlple selection classes. 

3) To explain how to use the view to arbitrate among selections. 

How to use this segment: 

This is the eighth segment of the self— paced introduction to the ToolKit. 
This segment follows the segment, "Moving Boxes", and precedes the segment on 
commands with undo. 

This segment implements multiple selections. It explains when multiple 
selection classes are useful; and how to specify them. 

Having just implemented dragging, the next stage in the Boxer application is 
to enable users to create new boxes. Once created, those boxes can be selected and 
dragged around the window. 

More so than the previous segments, in this one the user interface plays a 
critical role in the application design. We start by considering the problem of 
creating a box. 



CREATING A BOX 

Users of this stage of Boxer are to be able to create boxes. The design task 
at hand is to make the creation of boxes both natural and intuitive for the user. 

We start by considering how people create boxes on a universally familiar 
medium — drawing paper. 

Tanya is about to draw some boxes for a garden design project Tbe 
first box she is adding is the outer boundary of the garden. She tocates a 
suitable starting point on the sheet of paper, and sketches a box of the desired 
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size. Notice that she has control over both the location and the size of the 
box. 

She now starts to add a second box. This will be a planting area for 
beans. It will reside within the first box and will be appreciably smaller. As 
with the first box she locates a starting point then sketches the new box. 
She follows this basic procedure with every box she adds to the garden design. 

Two application design options come to mind. The first is to mimic the 
above process as closely as possible. This means that users can create boxes of 
arbitrary size from any starting point on the screen. The second option is more 
limiting. It allows users to sketch a box, but only from a starting point not within 
any other box. 

We consider the first option - creating a box anywhere on the screen. 

user Interface options 

There are two kinds of places where the user can locate the starting point of a 
box. The starting point can be either inside of a box or not inside of any box. If 
the starting point is not enclosed by any other box, then we can proceed to sketch it 
without reservation. 

Yet if the starting point is inside of another box, we have a problem. Unless , 
we know beforehand that the user is creating a box, we have no way of distinguishing 
it from a box selection of the type dealt with in the previous two segments. Can 
the user let us know that she will be drawing a box before she actually does it? And 
if so, then how? 

The answer to the first question is yes; and several proposals arise in answer 
to the second. Of these, we can immediately dismiss using a menu command to 
initiate a box creation mode. For reasons best explained in the Lisa User Interface 
Guidelines, this is prohibited. A more likely proposal is to implement a control 
which, minimally, would have two states - box creation and box selection. 

A control is a special figure or table that the user can edit or adjust to pass 
information to an application. Typically controls are used to communicate 
information that will not be used immediately. 

A good example of a control we could use is the pallette in LisaDraw, For 
Boxer we would only need the box create m^ (/r<3!^ indicators. All things considered 
though, a pallette is a good idea for a more complex application, but for Boxer, it is 
a bit excessive. A simpler control, such as a two position gauge would be more 
appropriate. 

Yet, despite the advantages, a control is not implemented in Boxer. Instead 
we pursue the design simplicity of the second implementation option - creating a 
box only where none exists. LisaProject works this way. 

With this option the criterion for creating a box is reduced to a simple test. 
Is there or is there not a box at the mouse press LPoint? If a box is present, we 
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interpret the mouse press to be a box selection. If none Is present the nnouse press 
Is the starting point for creating a box. 



CREATING A BOX 

Conceptually a box exists at the moment of creation. Initially this box has no 
dimensions, since it contains only a single point - the mouse press LPoint. 

To grow the box, we follow the example of LisaDraw. We retain the mouse 
press point as one corner of the box, and use mouse moves to position the far corner 
of the box. 

We use the mouse release to indicate the final position of the box's far 
corner. At this point the creation is now a full-fle'dged box. As with other boxes it 
can be selected, highlighted, and dragged. 

Because the responses to mouse moves and mouse releases diverge from those 
of box selections, box creation is handled as a new class of selection. This is the 
recommended application design. The table below lists the major behavioral 
differences between box creation selections and box selections. 

box creation 



CREATE create a new box 

mouse move grow the box 

mouse release end box creation 

highlighting frame growing box 



box selection 
refer to selected box 
move the box 
(no action) 
draw handles around box 



IMPLEMENTATION STRATEGY 

We modify the previous stage of the Boxer application, 4Boxer, to enable 
users to create boxes. The user interface is summarized below. 

user interface 



Wil 



No box is initially in the view. The user must create all the boxes he or she 
use. 



The user presses the mouse button at a point inside of no other box to initiate 
box creation. The box starts as a single point. With the mouse button down, the one 
corner of the box follows the movements of the mouse. The other corner remains 
fixed where the mouse went down. 

A temporary frame is drawn around the box boundaries after each mouse 
move. When the user releases the mouse button, the floating corner of the box is 
fixed at the last mouse move point. As with LisaDraw, if this corner Is not a 
minimal distance from the fixed corner, the creation is nullified, and the screen is 
restored to its former state. 
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If of suitable size, a permanent frame is drawn around the box. It Is colored 
the default color, gray. The new box immediately becomes the selected box. As 
such it is highlighted with tiny handles at its corners. 

design considerations 

What is the relationship between our two classes of selections? Is one a 
subclass of the other, or are they both direct descendants of TSelection? The 
subclassing rule of thumb is that if capabilities are not clearly shared between two 
classes, then make the new class a subclass of the nearest ancestor. In the case of 
our two selection classes, that ancestor is TSelection, 

arbitrating between selections 

The mouse press determines the class of the ^election to be created. We use 
a built— in ToolKit mechanism to arbitrate between the two selections. As the flow 
of control below indicates, we can use the MousePress method of the view to 
create the appropriate selection. 

[the mouse is pressed] 

pane.MouseTrack {TPane.} 

view.MouseTrack {TViewJ 

view.MousePress {TBoxView.} overrides the default method in TView 

Once the selection is created, mouse move events are then routed to that 
selection, 

theory of operation 

The implementation of box creation follows the algorithm below: 

1. When the mouse button is depressed, determine whether any box is 
selected. The determination is done by {TBoxView.}BoxWith, The 
mouse press is processed by {TBoxView,)MousePress. 

If one is selected, then free-and-replace the current selection with 
a new instance of TBoxSe lection. 

If none is selected, then free-and-replace the current selection 
with a new instance of TCreateBoxSelection. This selection 
creates a box object as one of its data fields. The selection anchor 
point becomes the fixed vertex of the box. 

The Generic Application then routes any mouse move events to that selection. For 
createBoxSelectlons the algorithm proceeds as follows: 

2. If the mouse has moved then: 

a. Undraw the frame of the box at its current size. This has no 
effect if the box's shape LRect is a zero LRect. 

b. Set the box's far vertex to the mouse LPoint. 

c. Draw the frame of the resized box. 
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The Generic Application now updates the window. The process repeats from step 2 
as long as the nnouse button Is down. When the mouse button is released the steps 
proceed as follows*. 

3. Undraw the frame of the box at its current (and final) size. 

4. Invalidate the box's shape LRect for the window update. 

5. Free-and-replace the createBoxSe lection with a new instance of 
TBoxSelection, whose anchor LPoint is the fixed corner of the box. 

5. If the box is not big enough then throw It away. This is done by 
setting the kind field of the boxSe lection to nothingKind; and by 
freeing the undersized box. ' 

Otherwise append the box to the view's box list. 

When the Generic Application updates the window at this point, the newly created 
box is drawn with its default color, then highlighted. If the box was thrown away, 
the update restores the display underneath the shape LRect of the freed box. 

actual implementation 

The actual implementation for SBoxer is summarized below. The code for 
4Boxer is used as the base for all changes. 

New Constants 

createBoxSelectionlCind = 2; 
New Classes 

[TCreateooxselection] 

TCreateBoxSclection = SUBCLASS OF TSelcction 
{fields) 
box. TBox; {references the box being created} 
{Creation} 
fUHCTlON {TCreateeoxSelection. } CREATE<object: TObject; itsHeap: THeap; itsviwi: TVie*i; 

itsAnchorlPt: LPoint): TCreateOoxSelection; 

{TCreateBoxSelectlon.)CREATE creates a createBoxSelectlon 
with the given anchor LPoint and with kind, 
createBoxSelectlonKind. 

PROCEDURE {TCreateBoxSelection. ) nousefiove(piouseLPt: LPoint); 

{TCreateBoxSelectlon.lMouseMove ties the far (diagonal) corner 
of the box to the mouse LPoint. It unframes the box using its 
old size, and reframes the box using its new size. 

PROCEDURE {TCrcatcBoxSclection. ) WouseRelcasc; 

{TCreateBoxSelection.}MouseRelease unframes the box and 
prepares to redraw it as a normal box. The selection replaces 
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itself with a new boxSelectlon referring to the newly created 
box. 

New Methods (for existing classes) 

[TBox] 

PROCEDURE {TBox. > DrauFraK; 

{TBox.}OrawFrame frames the box being created in a reversible 
way. It uses the QuickDraw pen pattern, patXOr. The framing is 
performed by FrameLRect. 

[TBoxVi«»] 

PROCEDURE (TBoxView.) InvalBox(invalLftect: Lftect); 

{TBoxView.}lnvalBox invalidates the created box's shape LRect 
and enough border to Include the highlighting. This allows the 
invalidation code to be shared. 

Overridden Method 

[TBoxView] 

PROCEDURE (TBoxVie«.}HousePress<iwuseLPt: LPoint); 

{TBoxView.)MousePress finds the box the user clicked on. If NIL 
then It creates a new createBoxSelection. Otherwise It creates a 
box selection. 

Modified Method 
[TBoxSelectioft] 

PROCEDURE {TBoxSelection.>flouseHove(iw)useLPt: LPoint); 

{TBoxSelection.}MouseMove now uses {TBoxView.}lnvalBox to 
invalidate boxes. 

Deleted Method 
[TBoxSelectioft] 
PROCEDURE {TBoxSelection )«ousePiess(i»uselPt. LPoint); 

obviated by {TBoxView.}MousePress. 

FRAMING IN MULTIPLE PANES 

Editing operations such as framing a box must work correctly even if the user 
chooses to split the panel into several panes. A special method in the ToolKit is 
supplied specifically for this purpose. That method is {TPane!.}OnAIIPadsDo. Its 
declaration is listed below: 

PROCEDURE <TPanel.}OnAllPddSDo(PnOCEDURE DoonTnePdd); 

The sole parameter to OnAIIPadsDo is a procedure, a parameterless 
procedure. When called, this method executes that procedure on each of the panes in 
the panel. Each pane that is visible will be focused before executing the procedure. 
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OnAliPadsDo is typically used to draw reversibly on the display. The code excerpt 
below demonstrates such a use. 

PROCEDURE <TCrc«teBoxSelcction. >llous««ovc<(i»ouseLPt: LPoint)); 

VAR DOX: TDOX; 

PROCEDURE FrwieThcBox; 
BEGIN 

box. OTMFiaiie 
END; 

BEGIN 

DOX .= SELF. box; (get the box under creation} 

<...} 

SELF, panel. 0nAllP8ds0o(FiaMThe6ox); (undiav the existing fraite in all panes) 

{compute the new frane) 

SELF, panel. OnAllPadsOo<FiaNeTheBox); (draw the ne« frane in all panes) 

(...) 
EH); 



Questions for thought: 

1. In general, what conditions warrant the creation of a new subclass? 

2. How does the view arbitrate between selections? 

3. Why is {TBoxSelection.}MousePress no longer needed? 

4. Why use Fr eedAndRep I acedBy to replace one selection with another? 

5. Although it wasn't done in this segment how would you get the Generic 
Application to frame the box when it highlights the current selection? 
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Box Creation Lab 



Purpose: 

To implement box creation. 

What you are about to do: 

You will compile and run 5Boxer, then optionally modify the source. This 
should be done In the following steps: 

1) copy the following flies onto your prefix volume. 

SUBoxer.TEXT 
5UBoxer2.TEXT 
SMBoxer.TEXT 
SPBoxer.TEXT 

2) Compile^ install and run the sample application^ SBoxer. Use 45 as 
the tool number. 

3) Scan the Jistings of the four files in the sample application. These 
are included in the appendix* "Code Samples for this Segment*. 

4) [Opt/onsi] Instead of merely framing the box* try drawing the biMC 
completely during the creation phase. This involves framing and 
filling the box with an appropriate color. 

Things to look out for: 

- Box is not drawn until the mouse is re/eased. 

Remember to invalidate every time the mouse is moved. 

- Box cannot he undrawn. 

Check to see If your Highlight method draws the box being created 
properly. 

- Boxes muitipiy iike ratibits. 

Check what you are actually invalidating. 
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2 

Page Layout 

Previeu Actual Pages»401 
Previeu Page Breaks»402 
Don' t Previeu PagesaAOS 

100 

Buzzuords 

Set Aside TOocument T109 
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/*' 

PROGRfttt MSBoxer, 
USES 



{$U UObjecl } UObjsct, 

{$IFC 1 IbrsryVersion <- 20} 

fJU UFont) OFont, 

{KNDC} 

$U QuickDraw } OulckDrau, 
$U UDrau } UDrau, 

;$U UABC } UABC, 

{$U USBoxar } USBoxar 

CONST 

phraseWars ion > 1; 

BEGIN 

process : ■ TBoxProcass. CREATE; 
process. Conimence( phraseVers Ion) ; 
process. Run; 
process. Compl eta( TRUE) ; 

END. 



applet oompufcor 
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1 — UNIT USBoxer; 

2 — 
3— INTERFACE 

4 — 

5 — USES 

6 — {$U UObject} UObJect. 

8— {SlfC 1 ibr«ryVer$lon <- 20) 

9 — {$U UFont) UFont, 
10 — (SENDC) 
Il- 
ia — {$U OuickDrau) OuickDrau, 
15 — {$U UDrau] UDrau, 

14 — {$U UABC] UABC; 

15 — 

16 — CONST 

17 — colortlhile - 1; 

18 — colorLtGray ■ 2; 

19 — colorGray ■ 5; 

20 — colorOkGray "4; 

21 — colorBlack - 5; 

22 — 
25 — boxSel ect ionKind ■ 1; 

24 — createBoxSel ect ionKind > 2; 

25 — 

26 — TYPE 

27 — 

28 — TCol or ■ col orUh it e. . colorBlack; {color of a box) 

29 — 

50 — {Neu Classes for this Application) 

51 — 

52 — TBox - SUBCLASS OF TObject 
35 — 

54 — {Variables) 

55 — shapeLRect; LRect; 

56 — color TCol on 

57 — 

58 — {Creation/Destruction) 
59— FUNCTION TBox. CREAtE( object: TObject; itsHeap: THeap); TBox; 

40 — 

41 — { Highlighting support ) 
42— PROCEDURE TBox. Paint Handles; 
45 — 

44 — { Framing while creating ) 

45 — PROCEDURE TBox. DrauFrame; 

46 — 

47 — {Display) 

48 — PROCEDURE TBox. Drau; 

49 — END; 

50 — 

51 — 

52 — TBoxVieu - SUBCLASS OF TVieu 
55 — , 

54 — {Variables) 

55 — boxList: TList; 

56 — 

57 -- {Creation/Destruction) _ .« , 
58— FUNCTION TBoxVieu. CREATE( object: TObject; itsHeap: THeap; itsPanel: TPanel ; itsExtent: LRect) 

59 — : TBoxVieu; 

60 — 

61— FUNCTION TBoxVieu. BoxU it h(LPt: LPoint): TBox: 

62— PROCEDURE TBoxVieu. lnvalBox( inval LRect: LRect); 
63 — 
64— PROCEDURE TBoxVieu. MousePress(mouseLPt: LPoint); OVERRIDE; 

65 — , 

66 — {Display) 

67— PROCEDURE TBoxVieu, Drau; OVERRIDE; 

68 — PROCEDURE TBoxVieu, InltBoxList( itsHeap: THeap); 

69— FUNCTION TBoxVieu. NoSel ect ion: TSelection; OVERRIDE; 

70 — END; 

71 — 

72 — 
75 — TBoxSel ect ion - SUBCLASS OF TSelection 

74 — 

75 — {Variables) 

76 — box: TBox; 

77 — 

78 — {Creation/Destruction) ,., ^^ ,,^ ,,,. ^^ _ __ 
79— FUNCTION TBoxSel ect ion. CREATE( object: TObject; itsHeap: THeap; ItsVieu: TVieu; itsBox: TBox; 
eo — ItsKind; INTEGER; itsAnchorLPt: LPoint): TBoxSel ect ion; 

81 — , 

82 — {Drawing - per pad) 

85— PROCEDURE TBoxSel ect ion. Highl ight(highTran$ it: THighTransit); OVERRIDE; 

84 — • 

85 — {Selection - per pad) , ^ ^ «.^,.„,^,. 

86— PROCEDURE TBoxSel ect ion. HouseHove(i»ou$eLPt: LPoint); OVERRIDE; 

87 — END; 

88 — 

89 — 

90 — TCreateBoxSelection • SUBCLASS OF TSelection 

91 — 

92 — {Variables) 
95 — box: TBox; 

94 — , 

95 — {Creation/Destruction) ...... ,u .. ,,. tih» 

96— FUNCTION TCreateBoxSel ect ion. CREATE( object: TObject; itsHeap: THeap; itsVieu: TVieu; 

97 _- ItsAnchorLPt: LPoint): TCreateBoxSelection; 

98 — , 
99— {Selection - per pad) , « .„ . s ,^..,.n«t«.- 

100— PROCEDURE TCreateBoxSelection. MousehoveCmouseLPt: LPomt); OVERRIDE; 

101— PROCEDURE TCreateBoxSelection, MouseRel ease; OVERRIDE; 
102 — END; 
105 — 

104 — 

105 — TBoxProcess ■ SUBCLASS OF TProcess 

106 — 

107— (Creat ion /Destruction) 

108— FUNCTION TBoxProcess. CREATE: TBoxProcess; _ ,^ ,,..,«... ^^ , «««. r*u> 

109— FimCTlON TBoxProcess. NeuDocManageK vol uwePre fix: TFil ePath: openAsTool: BOOLEAN) 
110 — : TDoctlanager, OVERRIDE; 
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111 — END; 

112 — 
115 ~ 

114 — TBoxDochanager ■ SUBCLASS OF TDocManager 

115 — 

116 — {Creatlon/DBStruct Ion) 

117— FUNCTION TBoxDocManager. CREftTE( object; TObject; ItsHeap: THeap; itsPathPref ix: TFilePath) 

118 — : TBoxDocManager 

119— FUNCTION TBoxDocManaeer. N«uUindou(heap: THeap; umgrlD; TUindouID): TUindou; OVERRIDE; 

120 — END; 

121 — 

122 — 
125 — 

124 — TBoxUindou - SUBCLASS OF TUindou 

125 — 

126 — {Creat lon/Destruct Hon) 

127— FUNCTION TBoxWindou. CREATE( object: TObject; ItsHeap; THeap; llsUmgrlD: TUindouID): TBoxUindou; 

128 — 

129 — {Document Creat ion) 
150— PROCEDURE TBoxWindou.Bl ankSt at ionery; OVERRIDE; 

151 — END; 

152 — 
155 — 

154 — IMPLEMENTATION 

155 — 

156 — {$] U5Boxer2. text) 
2 1 — {U5B0XER2) 

2 2 — 

2 5 — METHODS OF TBox; 

2 4 — 

2 5 — A FUNCTION TBox. CREATE( object: TObject; itsHeap: THeap): TBox; 

2 6 0- A BEGIN 

2 7— {$IFC fTrace)BP(ll);{$ENDC) 

2 8— SELF :- NeuObject( itsHeap, THISCLASS); 

2 9 — UITH SELF DO 

2 10 1- BEGIN 

2 11 — shapeLRect : ■ zeroLRect; 

2 12 — color : ■ celorGray; 

2 15 -1 END; 

2 14 — {$IFC fTrace)EP; {SENDC) 

2 15 -0 A END; 

2 16 — 

2 17 — { Draw this box ) 

2 18 — A PROCEDURE TBox. Drau; 

2 19 — VAR IPat; LPattem; 

2 20 0- A BEGIN 

2 21 — f$lFC nrace)BP(10);{$£NDC) 

2 22 — ^enNormal; 

2 25 — 

2 24 — IF LRectlsV is ible( SELF. ShapeLRect) THEN [this box rteeds to be draun) 

2 25 1- BEGIN 

2 26 — {Get a Quickdrau pattern to represent the box's color) 

2 27 2- CASE SELF, col or OF 

2 28 — colortJhite: IPat :- IPatUhite; 

2 29 — colorLtGray: IPat :• IPatLtGray; 

2 50 — colorCray; IPat :- IPatGray; 

2 51 — colorOkGray: IPat :■ IPatDkGray; 

2 52 — colorBIack: IPat :• IPatBiack; 

2 55 — OTHERUISE IPat :- IPatUhite; {this case should not happen) 

2 54 -2 END; 

2 55 — 

2 56 — {Fill the box uith the pattern, and drau a frame around it) 

2 57— FiIlLRect( SELF. ShapeLRect, IPat); 

2 58 — FrameLRect( SELF. ShapeLRect); 

2 59 -1 END; 

2 40 — {$IFC nrace)EP; {$ENDC) 

2 41 -0 A END; 

2 42 — 

2 45 — { Frame a particular box) 

2 44 — A PROCEDURE TBox. DrauFrame; 

2 45 0- A BEGIN 

2 46 — f$IFC rrrace)BP(10);{$ENDC) 

2 47 — PenNermal; 

2 48 — {frame ulth reversible ink) 

2 49 — PenMode(PatXOr): 

2 50— FrameLRect( SELF. ShapeLRect); 

2 51 — {$IFC nrace)EP;{$ENDC) 

2 52 -0 A END; 

2 55 — 

2 54 — {This procedure paints the handle rectangles for highlighting; user of this method must 

2 55 — set up the pen pattern and node before call ing) 

2 56 — A PROCEDURE TBox. Paint Handles; 

2 57 — VAR hLRect. 

2 58 — ShapeLRect: LRect; 

2 59 — dh, dv: LONGINT; 

2 60 — 

2 61 — B PROCEDURE MoweHandIeAndPaint(hOff$et, vOffset: LONGINT); 

2 62 0- B BEGIN 

2 65 — OffsetLRectC hLRect. hOffset, vOffset); 

2 64 — Paint LRect (hLRect); 

2 65 -0 B END; 

2 66 — 

2 67 0- A BEGIN 

2 68— {$IFC fTrace)BP(10);{$ENDC) 

2 69 — Set LRect( hLRect. -5, -2, 5, 2); 

2 70 — ShapeLRect : ■ SELF. shapeLRect; 

2 71 — UITH ShapeLRect DO 

2 72 1- BEGIN 

2 75 — dh : - right - left; 

2 74 — dv : ■ bottom - top; 

2 75 — MoveHandleAndPaint(left, top); {drau top left handle) 

2 76 -1 END; 

2 77 — MoveHandleAndPaintfdh. 0); (then top right) 

2 78 — ftoveHandleAndPaintfO, dv): (then bottom right) 

2 79 — MoveHandleAndPaintf-dh, 0); {finally bottom left) 

2 80 — {$IFC fTrace)EP;{$£NDC) 

2 81 -0 A END; 

2 82 — 

2 85 — END; 

2 84 — 
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2 
2 


8S 
86 


— 




METHODS OF TBoxVl»u; 


2 


87 


__ 






2 


88 





A 


FUNCTION TBoxVieu. CREATEC object: TObject; itsHeap: THeap; ItsPanel: TPanel ; itsExtent: LRect) 


2 


89 


-- 




: TBoxVieu; 


2 


90 


0- 


A 


BEGIu 


2 


91 


— 




(JIFC fTrace}BP(ll);{$ENDC} 
IF object -NIL THEN 


2 


92 


>>> 




2 


93 


-- 




object :■ NeuObJBCt( it sHeap, THISCLASS); 
SELF :- TBoxVi»u( it sPanel. NeuVi«w( object, itsExtent, TPrlntManager. CREATE(NJL, itsHeap), 


2 


94 


— 




2 


9S 


— 




stdrtargins, TRUE)); 


2 


96 


— 




{$1FC nrace}EP; {SENDC) 


2 


97 


-0 


A 


END; 


2 

2 
2 


98 

99 

100 


— 






__ 




{This returns the box containing a certain point or NIL if point is not within a box) 


2 


101 


— 


A 


FUNCTION TBoxVieu. BoxUith(LPt: LPoint): TBox; 


2 


102 


.- 




VAR box: TBox; 


2 


105 


— 




$; TLlstScanner; 


2 


104 


0- 


A 


BEGIN 


2 


105 






{$IFC nr»ce)BP(ll);{$ENDC} 


2 


106 


-- 




boxUith : - NIL; 


2 


107 


-- 




s :■ SELF. boxList. Scanner, 


2 


108 


-- 




WHILE $, Scan{box) DO 


2 


109 


-- 




IF LPtlnLRect(LPt, box. shapeLRect) THEN 


2 

2 


110 
111 


^_ 




boxUlth :- box; 
{$IFC fTracejEP; {JENDCJ 


2 


112 


-0 


A 


END; 


2 


115 


-- 






2 


114 


— 




{This draws the list of boxes) 


2 


115 


-. 


A 


PROCEDURE TBox View. Draw; 


2 


116 


-. 




VAR box: TBox; 


2 


117 


-. 




$: TListScanner, 


2 


118 


0- 


A 


BEGIN 


2 


119 






{$IFC n race} BP{ 10); {SENDC) 


2 


120 


-- 




$ :■ SELF. boxList. Scanner, 


2 


121 


— 




WHILE $. Scan(box) DO 


2 
2 


122 
125 


— 




box. Draw- 
{JIFC rrrace)EP;{JENDC) 


2 


124 


-0 


A 


END; 


2 


125 


_- 






2 


126 


.- 


A 


PROCEDURE TBoxVieu. lnvalBox( inval LRect: LRect); 


2 


127 


0- 


A 


BEGIN 


2 


128 


— 




($IFC n race) BP( 10); {SENDC} 
InsetLRectC inval LRect, -3, -2); 


2 


129 


— 




2 


150 


— 




SELF, panel. Inval LRect( inval LRect); 


2 


151 


— 




{SIFC fTrace}EP; {SENDC} 


2 


152 


-0 


A 


END; 


2 


155 


— 






2 


154 


-- 






2 


135 


_- 




This determines which type of selection to create} 
PROCEDURE TBoxVlew. MousePress(mouseLPt: LPoint); 


2 


156 


— 


A 


2 


157 


— 




VAR aSel ect ion: TSel ect ion; 


2 


158 


_- 




panel: TPanel; 
box: TBox; 


2 


159 


— 




2 


140 


-- 






2 


141 


0- 


A 


BEGIN 


2 


142 






{SIFC nrace}BP( 11); {SENDC} 
panel : ■ SELF, panel ; 


2 


145 


-- 




2 


144 


_- 




panel. Highl ight( panel, select ion, hOntoOff); {Turn off the old highlighting} 
box : ■ SELF. Boxlilith(ii»useLPt); {Find the box the user clicked on} 


2 


145 


— 




2 


146 


— 






2 


147 


-- 




IF box -NIL THEN 


2 


148 


_. 




{Create an instance of TCreateBoxSelect ion} 


2 


149 


_- 




aSel ect ion : ■ panel . sel ect ion. FreedAndRepl acedBy( 


2 


150 







TCreateBoxSelect ion. CREATE{ NIL, SELF, heap, SELF, mouseLPt)) 


2 


151 


-. 




ELSE 


2 


152 







{Create an instance of TBoxSel ect ion} 


2 


155 


__ 




aSel ect ion : > panel . sel ect ion. FreedAndRepl acedBy( 

TBoxSel ect ion. CREATEC- NIL, SELF, heap, SELF, box, boxSelect ionKind. mouseLPt)); 


2 


154 


— 




2 


155 


__ 






2 


156 


— 




panel. Highl ightC panel, sel ect ion, hOffToOn); {Turn on the highl ight ing for the newly selected box} 


2 


157 


.- 






2 


158 







sel f. panel, selection. Ma rkChanged; (Allow the document to be saved so that any changes made} 

{can become permanent} 


2 


159 


-- 




2 


160 


.- 




{SIFC fTrece}EP; {SENDC} 


2 


161 


-0 


A 


END; 


2 


162 


.- 






2 


165 


— 


A 


PROCEDURE TBoxView. In itBoxL 1st (ItsHeap: THeap); 


2 


164 


— 




VAR boxList: TList; 


2 


165 


0- 


A 


BEGIN 


2 


166 






{SIFC rr rece}BP( 11) ;( SENDC} 
boxList :■ TList. CR£ATE( NIL, ItsHeap, 0); 


2 


167 


-- 




2 


168 


.- 




SELF, boxList :• boxList; 


2 


169 


— 




{SIFC fTrace}EP; {SENDC} 


2 


170 


-0 


A 


END; 


2 


171 


-. 






2 


172 


— 






2 


175 


_- 


A 


FUNCTION TBoxVieu. NoSel ect ion; TSelection; 


2 


174 


0- 


A 


BEGIN 


2 


175 






NoSeltcUon :- TBoxSel ect ion. CREATEC NIL, SELF. Heap, SELF. NIL, nothingKind, zeroLPt); 


2 


176 


__ 




2 


177 


— 




{SIFC nrece}EP; {SENDC} 


2 


178 


-0 


A 


END; 


2 


179 


— 






2 


180 


— 




END; 


2 


181 


-~ 






2 


182 


-. 






2 


185 


.- 




METHODS OF TBoxSel ect ion; 


2 

2 


184 
185 


— 


A 


FUNCTION TBoxSel ect ion. CREATEC object; TObject; itsHeap: THeap; itsView: TView; itsBox: TBox; 


2 


186 


__ 




itsKind: INTEGER, ItsAnchorLPt: LPoint): TBoxSel ect ion; 


2 


187 


0- 


A 


BEGIN , , ■ 


2 
2 


188 
189 


:: 




(SIFC fT race} BPC 11); {SENDC} 

IF object « NIL THEN ISCLASS)' 


2 
2 


190 
191 


:; 




SELF'':^!'^TBkxsIIrectR^tSefi5t?on!^CREATE( object. itsHeap, itsView, ItsKind, ItsAnchorLPt)); 


2 


192 


-. 






2 


195 


-_ 




SELF, box : - itsBox; 


2 


194 


~ 




{SIFC n«ce)EP; {SENDC} 
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/ ' — 

2 195 -0 A END; 

2 196 — 

2 197 — [This draus the handles on the selected box} 

2 198 — A PROCEDURE TBoxSelect Ion. Highl iBht(hlghTransit: THiohTransit); 

2 199 0- A BEGIN 

2 200 — ($IFC rTrace)BP(ll);{$ENDC) 

2 201 — IF SELF, kind <> nothingKind THEN 

2 202 1- BEGIN 

2 205 ~ thePad. SetPenToHighl IghlChighTranslt); (set the draulng mode according to desired highJightin 

2 204 ~ SELF. box. Paint Handles; (drau the handles on the box) 

2 205 -1 END; 

2 206 — {$IFC fTrace)EP; (SENDC) 

2 207 -0 A END; 

2 208 — 

2 209 ~ 

2 210 — (This is called uhen the user moves the mouse after pressing the button} 

2 211 — A PROCEDURE TBoxSelect ioa MouseMove(mou$eLPt: LPoint); 

2 212 -- VAR diffLPt: LPoint; 

2 215 — boxVleu: TBoxVieu; 

2 214 — shapeLRect; LRect; 

2 215 0- A BEGIN 

2 216— {$IFC nrace}BP(ll);f$ENDC) 

2 217 — boxVieu :• TBoxVieu(SELF. vieu); 

2 218 — 

2 219 — {Hou far did mouse move?} 

2 220 -- LPtMinu$LPt(mouseLPt. SELF. currLPt, diffLPt); 

2 221 — 

2 222 — {Hove it if delta is nonzero} 

2 225 — IF NOT Equal LPt( diffLPt. zeroLPt) THEN 

2 224 1- BEGIN 

2 225 — SELF. currLPt : - mouseLPt; 

2 226 — 

2 227 — ShapeLRect : ■ SELF. box. shapeLRect; 

2 228 — {Compute old and neu positions of box} 

2 229 — boxVieu. lnvalBox( shapeLRect); {invalidate old box (causes it to be erased)} 

2 250— Offset LRect (shapeLRect, diffLPt. h, diffLPt. v); 

2 251 — boxVleu. ]nvalBox( shapeLRect); {Invalidate neu box (causes it to be draun)} 

2 252 — 

2 255 — SELF. box. shapeLRect : > shapeLRect; 

2 254 -1 END; 

2 255— {$IFC nrace}EP;{$ENDC} 

2 256 -0 A END; 

2 257 — 

2 258 — END; 

2 259 — 

2 240 — 

2 241 — tIETHODS OF TCreateBoxSelect ion; 

2 242 — 

2 245 — A FUNCTION TCreateBoxSelect ion. CREATE( object: TObject; ItsHeap: THeap; itsVieu. TVieu; 

2 244— ItsAnchorLPt; LPoint): TCreateBoxSelect ion; 

2 245 — VAR box: TBox; 

2 246 0- A BEGIN 

2 247 — {$IFC fTrace}BP(ll);{$ENDC} 

2 248 — IF object -NIL THEN 

2 249— object :- NeuObject (ItsHeap, THISCLASS); 

2 250 — SELF :« TCreateBoxSelect ion(TSeiect ion. CREATE( Ob ject, ItsHeap, itsVieu, createBoxSelect ionKind, 

2 251 — ItsAnchorLPt)); 

2 252— box :• TBox. CREATE( NIL, SELF, heap); 

2 255 — SELF, box ; - box; 

2 254 — {$IFC nracejEP; {SENDC} 

2 255 -0 A END; 

2 256 — 

2 257 — {This is called uhen the user moves the mouse after pressing the button} 

2 258 — A PROCEDURE TCreateBoxSelect ioa flouseMove( mouseLPt; LPoint); 

2 259 — VAR maxBoxLRect: LRect; 

2 260 — diffLPt: LPoint; 

2 261 — boxVieu: TBoxVieu; 

2 262 — box: TBox; 

2 265 — 

2 264 — 6 PROCEDURE DrauTheFrame; 

2 265 0- B BEGIN 

2 266 — box. DrauFrame; 

2 267 -0 B END; 

2 268 — 

2 269 0- A BEGIN 

2 270— {$IFC nrace}BP(ll);{$ENDC} 

2 271 — boxVleu :- TBoxView( SELF, vieu); 

2 272 — box : ■ SELF, box; 

2 275 — 

2 274 — { In Boxer it is possible to drau a box greater than allowed by a 16 bit rectangle. These three 

2 275 — 1 Ines force the rectangle to within 16 bits. } 

2 276 — {$H-} MITH SELF. anchorLPt DO ' 

2 277 — Set LRect (maxBoxLRect. h- 10- MAX INT. vlO-HAXINT, h-MAXINT-lO. v-HAXINT-10); 

2 278 — {$H«} LRect HaveLPt( maxBoxLRect. mouseLPt); 

2 279 — 

2 280— LPtMlnusLPt( mouseLPt, SELF, currLPt, diffLPt); 

2 281 — IF NOT Equal LPt( diffLPt. zeroLPt) THEN 

2 282 1- BEGIN 

2 285 — SELF. currLPt : - mouseLPt; 

2 284 — 

2 285— boxVieu. panel. OnAllPadsDo( DrauTheFrame); 

2 286 — WITH box DO 

2 287 2- BEGIN 

2 288 — ShapeLRect. topLeft :• SELF. anchorLPt; 

2 289— ShapeLRect. bot Right :> mouseLPt; 

2 290 -2 END; 

2 291 — 

2 292 — {$H-} RectifyLRect( box. ShapeLRect); {$H*} 

2 295— boxVieu. panel. OnAlIPadsDo(DrauTheFrame); 

2 294 -1 END; 

2 295— {$IFC nrace}EP;{$ENDC} 

2 296 -0 A END; 

2 297 — 

2 298 — 

2 299 — A PROCEDURE TCreateBoxSel ect ion. houseRel ease; 

2 500 — VAR thlsBox: TBox; 

2 SOI >- boxVieu: TBoxVieu; 

2 502 — draunLRect: LRect; 

2 505 — eSelection: TSelection; 

2 504 — panel: TPanel; 



21 Rug 1984 12: 35: 41 U5B0KER. TEXT Page 

2 505 — 

2 506 — B PROCEDURE DnuTheFmrne; 

2 507 0- B BEGIN 

2 508 — thisBox. Dr»uFrame; 

2 509 -0 B END; 

2 510 — 

2 511 0- A BEGIN 

2 512— {$IFC fTr»ce}BP(ll);{$ENDC) 

2 513 — 

2 514 — boxVleu :• TBoxVleu(SELF. vieu); 

2 515 — p«nel :■ boxVieu. panel; 

2 516 -- thlsBox :« SELF, box; 

2 517 — panel . OnAl lP«d$Do(Dr*uTheFrame); 

2 518 — draunLRect : > thisBox. shapeLRect; 

2 519 — 

2 520 — { Independent of whether ue threu the box auay or not ue must create an instance of TBoxSel ect ion 

2 521 ~ to replace the nou useless instance of TCreateBoxSelect ion using the kind set above. ) 

2 522 — aSelection :- SELF. FreedAndReplaceby( 

2 525— TBoxSel ect ion. CREATEC NIL, SELF, heap, boxVleu. thisBox. boxSel ect ionKlnd, 

2 524— ■ draunLRect. topi eft)); 

2 525 — , , 

2 526 — boxUieu. Inval Box( draunLRect); 

2 527 — 

2 528 — {If the box is not big enough then throu it auay, otheruise put it in the list] 

2 529 — IF (draunLRect. right - draunLRect. left <»4) OR (draunLRect. bottom - draunLRect. top <«4) THEN 

2 550 1- BEGIN 

2 551 — tSel ect ion. k ind :■ nothlngKind; 

2 552 — thisBox. Free; 

2 533 -1 END 

2 554 — ELSE 

2 555— boxVieu. boxL 1st. In$Last( thisBox); 

2 556 — {$1FC nrace)EP; {JENDC) 

2 557 -0 A END; 

2 538 — 

2 559 — END; 

2 540 — 

2 541 — 

2 542 — METHODS OF TBoxProcess; 

2 345 — 

2 544 — A FUNCT ION TBoxProcess. CREATE: TBoxProcess; 

2 545 0- A BEGIN 

2 546— fJIFC nracelBP(ll); f$ENDC) 

2 547— SELF : - TBoxProcess(TProcess. CREATE(NeuObject(mainHeap. THISCLASS), n»ainHeap)); 

2 548— {$IFC nrace]EP; {SENDC) 

2 549 -0 A END; 

2 550 — 

2 551 — , 

2 552 — A FUNCTION TBoxProcess. NeuDocManager( vol uinePrefix: TFilePath; openAsTool : BOOLEAN): TDocManager; 

2 555 0- A BEGIN 

2 554— {$IFC nrace)BP(ll); {SENDC} 

2 555— NeuDocManager : • TBoxDocManager. CREATE(NIL, mainHeap, voIumePref ix); 

2 556 — {JIFC nracejEP; {$£NDC) 

2 557 -0 A END; 

2 558 — 

2 559 — END; 

2 560 — 

2 561 — 

2 562 — 

2 563 — METHODS OF TBoxDocManager, 

2 564 — ^ 

2 565 — A FUNCTION TBoxDocManager. CREATE( object: TObject; itsHeap; THeap; itsPathPref ix: TFilePath) 

2 566 — : TBoxDocManager; 

2 567 0- A BEGIN 

2 568— C$IPC nrace)BP{ 11); {JENDC} 

2 569 — IF object - NIL THEN 

2 570 — object :- NeuObjectf itsHeap, THISCLASS); 

2 571— SELF :•• TBoxDocManageri TDocManager. CREATE( object, ItsHeap, itsPathPref ix)); 

2 572 — {$IFC nraceJEP; {SENDCJ 

2 573 -0 A END; 

2 574 — 

2 575 — 

2 576 — A FUNCTION TBoxDocManager. NeuUindou( heap: THeap; umgrlO: TUindouID): TUindou; 

2 577 0- A BEGIN 

2 578— {JIFC n race) BP( 11); [SENDCl 

2 579 — NeuUindou :- TBoxUindou. CREATE{NIL, heap, umgrlD); 

2 580— {JIFC n race) EP;{ JENDC) 

2 581 -0 A END; 

2 582 — 

2 585 — END; 

2 584 — 

2 585 — 

2 586 — 

2 587 — METHODS OF TBoxttindou; 

2 388 — 

2 589 — A FUNCTION TBoxKindow. CREATE( object: TObject; itsHeap: THeap; ItsUlmgrlD; TWindouID): TBoxUindou; 

2 590 0- A BEGIN , 

2 591— {JIFC nracelBP( 10); {JENDC} 

2 592 — IF object • NIL THEN 

2 593— object :• N«uObject( ItsHeap, THISCLASS); 

2 594— SELF :- TBoxWindoufTUindou. CREATE( object, ItsHeap, itsUmgrlD. TRUE)); 

2 595— {JIFC rr race) EP;{ JENDC) 

2 596 -0 A END; 

2 597 — 

2 598 — 

2 599 — A PROCEDURE TBoxUindow. Bl ankStat ionery; 

2 400 — VAR vieuLRect: LRect; 

2 401 — panel: TPanel; 

2 402 — boxVieu: TBoxVieu; 

2 403 — aSelection: TSel ect ion; 

2 404 0- A BEGIN 

1 Jot— pif»Sl7"TPaneLCREATE?NIL. SELF. Heap, SELF, 0, 0. [aScroll, aSplit], [aScroll, aSplit)); 

2 407 — 

2 408 — S«tLRect(viewLR»ct. 0, 0. 5000, 5000); , .« , 

2 409— boxUieu :■ TBoxVieu. CREATE( NIL, SELF. Heap, panel, vieuLRect); 

2 410— boxVieu. ]nitBoxLlst(SELF. Heap); 

2 411 — 

2 412 — {JIFC fTrace)EP; {JENDC} 

2 415 -0 A END; 

2 414 — 
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2 415 — END; 

2 416 — 

1 157 — 

1 158 — END. 
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[Segment 9] 

Recoloring, Duplicating, and Clear 

All 

Commands with Undo 



Purpose of this segment: 

1) To introduce connmands. 

2) To present the four phases of commands: do, undo, redo, commit. 

3) To discuss command generation and command processing. 

4) To be able to recolor and duplicate a selected box; and undo these 
operations. To be able to clear all boxes in a simple, but undoable fashion.. 

How to use this segment: 

This is the ninth segment of the self— paced introduction to the Toolkit. This 
segment follows the treating Boxes'* segment; and precedes the segment, "Filters". 

The next three segments are devoted to responding to events and creating fully 
undoable commands. This segment considers only the simplest implementation of 
undo. This stage of Boxer, BBoxer, is able to undo selected menu events. The 
remaining two segments provide the tools to make nearly any operation undoable. 



INTRODUCTION TO COMMANDS 

With few exceptions, all applications allow users to make changes to a 
document. The Toolkit supplies a special object to manage such changes. This 
object is known as a command 

You are already familiar with such commands as "Cut**, "Paste", and 
"Duplicate". You select some data to be changed, then indicate the operation to 
perform upon it. For example, you a/^selected portions of a LisaDraw document to 
the clipboard; you dUpiicateh selected document on the Desktop. 

what do commands do? 

Lisa commands are used In many different ways. Lisa commands may: 
— Change a selected portion of a document, (eg. cut paste, type sty/e) 



- Change the view In a panel or window, (eg. chratologicah preview pages) 

- Use the entire document as data^ without changing it. (eg. save and put 
away^ print search) 

- Bring up a dialog box. especially when more information is required to 
make a change, (eg. format for printer) 

- Display or hide a control. i^% hide nr}argin ruler, sftow document size) 

- Set a control for subsequent changes, (eg. scale of ruler, set tab) 

- Make a new selection, {q^. select all of document) 

Normally/a command needs a selection to operate upon. But a command, 
such as "Save and Put Away" or "Print", may. instead, operate upon the entire 
window or document, ignoring the current selection. 

Both types of commands are legitimate. Both have similar beginnings (and 
ex\^%). 

birth of a command 

Commands are born from events. As mouse events give rise to selections, so 
commands arise from menu events. Certain keyboard events (eg. apple-key 
combinations) also appear to create commands, but these are actually converted to . 
menu events ^/»^A^^/7^A/^fl5^bef ore generating any commands. 

Application users generate the menu events that precede commands. When the 
user clicks on the menu bar and releases on a menu item, a menu event Is born. This 
menu event goes immediately to the current selection, which normally generates a 
command. // a selection creates the command, the command is given the currently 
selected object to operate t^nyn. 

doing a command 

A command changes a document by operating upon the selected object. 
Typically, the change is made to the view. The window updates the display of the 
view to reflect the change before processing the next event. 

A command may also operate upon the entire document or window. This is 
particularly applicable when there is no selected object. 

undoing a command 

To undo an operation performed by a command, the simplest method is to 
save in the command object the document data that will be changed. You simply 
undo the command by restoring the document's state from the data saved in the 
command. 

The mechanism Is similar to making change for a dollar. Suppose that you, 
playing the role of the command, have a dollar. Your friend, playing the role of the 
document, displays some change. In response to a friendly request, you swap some of 
his change for your dollar. Now your friend displays a dollar in place of the change. 
But, for reasons unknown, your friend desires to undo the transaction. Since you 



wisely retained his change, you happily restore your friend to his previous currency 
state. 

That simple technique of implennenting undo is sufficient for this stage of 
Boxer. But as the amount of information needed to restore a document to Its 
pre-changed state grows, more sophisticated undo strategies will be needed. These 
strategies are discussed in the subsequent segments "Fi iters ". 

Whenever possible, all commands should be undoable. This Is an extremely 
useful application feature. Especially Important Is the ability to restore the 
selection to what It was before the command. That way the user can proceed from 
where he or she left off with minimum delay. To this end, the ToolKit provides a 
simple, but powerful structure for doing and undoing commands. 



MENU EVENTS 

Menu events are generated by the Menu Manager in response to mouse presses 
in the menu bar. 

The menu closest to the mouse press gets puiied-down The pulled-down 
menu displays a list of menu items. Releasing the mouse over one of these Items - 
generates a menu event with an associated Item number. This item number is used 
to identify the event to the application. 

If the menu event's number is legitimate and an object is selected, a command 
may be generated. But if the current selection is a null selection (kind equals 
nothingKind), a command may not be able to be performed. The menu event may 
generate a warning instead. Warnings are displayed in aiert boxes. 

Understandably, from the user's point of view, a menu item should be disabled 
if it cannot be performed. The ToolKit supports this reasoning. 

Before a menu is displayed the selection can tell the Generic Application 
which menu items it will enable and which it will not. This is the recommended 
procedure in ail appiications. If not enabled, the menu item is grayed. Grayed 
menu items cannot generate events. 



COMMAND CONCEPTS 

The following concepts are essential to successful Implementation of 
commands: command phase, phrase fiie, command number, revelation, image, and 
filtering 

command phase 

There are four phases of commands. These are: doPhase, undoPhase, 
redoPhase/m6 commit The diagram: Command Phases '[\\\ji^XrdX^% their 
interrelationships. 
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The ToolKit defines the following command phase constants: 
TCRdPnase - (doPhase, undoPhase, redoPn«se): 

Commands are performed during those three phases only. The comm/t phase 
terminates the command. 

The doPhdse\% the initial command phase. It is entered immediately after 
the command is created. The command is initially performed during this phase. 

The undoPha$e\}x\^x^e% the command. It is entered when the user initiates an 
undo menu event during the doPfiaseor the redoPhase. When the command is 
performed during the undoPhase, the command's previous changes are undone. 

The redoPha$e\ix\^Qe% an undo. It is entered when the user Initiates a redo 
menu event during the undoPhase, When the commapdjs performed during this 
phase, the command's Initial changes are reinstated. 

The ToolKit allows only single-level undo. Only the most recently performed 
command may be undone or redone. When a command is committed it is 
completed, and can no longer be undone or redone. Redo and undo events switch the 
command phase between undoPhase and redoPhasa 

Most events other than redo or undo terminate the current command. If the 
current command phase is doPhase or redoPhase, the command enters the commit 
phase. The comm/ti\xe% the command's changes into the document, then deallocates 
(or frees) the command. If the current command phase is undoPhase, Xhe command - 
Is simply deallocated. 

Some events do not terminate a command, e.g., scrolling, splitting, resizing, 
and selecting. They do not affect the command phase. 

Phrase file 

The phrase file contains an application's menus, alerts, text^ and name on the 
Desktop. Each application has a phrase file associated with It. Phrase files are 
covered in a separate document. The phrase fiie is also known as an alert and menu 
file, 

command number 

The command number is typically the number of the menu item that initiates 
the command. Menu item numbers are defined both in the application phrase file 
and in the application code. This enables the Menu Manager to communicate menu 
events to the application. A menu item's number uniquely distinguishes it from 
other Items In the phrase file. 

revelation 

Revelation is the amount to reveal the current selection before performing 
the current phase of the command. 

It is often desirable to scroll the whole selection into view to observe the 
effects of a command. Sometimes (clearino the screen, for example) you don't care. 
And other times only part of the selection (recoloring a box, for example) is needed 
to convey the change. 



The ToolKit supplies the following revelation constants: 
TRevelatioft « (levealMonc, levealSone, revealAli); 

Revelation tells the Generic Application how nauch to scroll to reveal the current 
selection's bound LRect, Scrolling is done in a pane selected by the Generic 
Application. 

/%»^g><?//Vi?/7^ performs no scrolling. Re\/es/Som€>%cro\h to reveal at least a 
30x20 pixel portion of the bound LRect. ^e)/ea/A//%oro\\% to reveal the maximum 
possible portion of the selection's bound LRect. 

Image 

An image is an area within a view. The command's image defines the portion 
of the view that the command can affect. Typical ly^the. image will be the same as 
the view. Images have two fields, one of which is the view in which it lies. Images 
are of the class T Image. Ty/ew /s a subclass of T Image. 

TiMge = SUBCLASS Of TObject 
(fields) 

extentLBect: LRect; {the bounds of the iPtagc) 
vlen: TView; <the view cohtaining the inage (or SELF)) 

filtering 

Filtering is a way to make a change to a document without affecting the 
document's data. A filtered command ^\\^v\^^ the display of the document^ but not 
the document Itself. Filtering is like editing an overhead slide by making changes to 
a sheet of plastic covering the slide. The slide's display is changed without the slide 
itself being altered. 

Only when a filtered command is committed are its effects made permanent 
in the document. 



THE STRUCTURE OF COMMANDS 

Commands are descended from the class, TCommand. They have the 
following structure: 

TCofwand * SUBCLASS Of TOt ject 



(the cowiand nunbeT of the associated nenu itefi) 
(the inage oi vie« affecting filtering) 
(TRUE iff the cowiand is undoable) 
(TRUE iff copwiand is in doPhase or redoPhase) 
(how pwch of the selection to reveal before performing 
the coMiand) 
unHiliteBefoie: ARRAY[TCndPhase3 Of BOOLEAN (if TRUE, ToolKit unhighlights all 



(fields) 




cRdNuRber: 


TGKdNunber; 


iMge: 


TlMge; 


undoable: 


BOOLEAN; 


doing: 


BOOLEAN; 


revelation: 


TRevelation; 



selections before perforning comand} 
hiliteAf tei: ARRAY[TCKdPhase] Of BOOUM {if TRUE, ToolKit highlights all 

selections after perforoing coiwand) 

Some commands, such as "Show Page Ruler", can be made not undoable. 
Typically, In such cases, a complementing menu item, such as "Hide Ruler", is 
provided in lieu of undoabi I ity. 

Some of the relevant methods of commands are listed below: 
(creation) 
FUNCTION {TCoMiand. } CREATE(object: TObject; heap. TNeap; itsCAdNunber. TCmMuRper; 

itslRage: Tlnage; isundoable: BOOLEAN; itsRevelation: TRevelation) 
: TConnand; 
{(iestruction) 
PROCEDURE (TCofiMnd.) fitt: OVERRIDE; {frees tcfiporary fields if last phase was undoPhase) 

{copwand execution) 

PROCEDURE {TCo^Mnd.) ZomiX; DEFAULT; {coiwits the co««and (default is a no-op)) 
PROCEDURE (TCoiwand.) Perform (cudPhase: TCudPhase); DEFAULT; {performs the cowwnd in the 

given phase (default is a no-op)) 
{filtering) 

{those nethods are covered in the "Filtering" segnent) 

In this stage of Boxer, we only need to be concerned with CREATE, free and 
Perform. 



COMMAND GENERATION 

The ToolKit's mechanism for generating and processing commands is simple 
and smart. The Generic Application takes care of everything that you don't. You 
need to only handle commands specific to your data. The Generic Application handles 
the rest. For example, in Boxer, you might handle just recoloring and duplicating 
boxes, while leaving such things as printing or saving the document to the Generic 
Application. 

, Your code gets the first opportunity to generate a command in response to a 
menu event. Your application's selection gets to perform the initial honors. 

roie of the selection 

From the moment the user clicks on the menu bar, the menu event is destined 
for the selection. Two methods of your selection are particularly important ~ 
CanDoCommand and NewCommand, The default declarations of those methods are 
listed below. 



FUNCTION (TSelection.) CanOoComand(cR(INuRbeT: TCiMMuNbei; VAR checKIt: BOOLEAN) 

: BOOLEAN; OEfAULT; (indicates cowwnd availability} 
FUNCTION (TSelection. > Neiicowiand(ciMNuM)ei: TCMNunoei): TCoAAand; default; 

(returns the created cowwnd) 

Before the target menu is displayed, the selection is called upon to indicate 
which menu items are available to the user. The flow of control below includes the 
method CanDoCommand. This method tells the Generic Application which items 
are enabled and which are not at the moment of the menu click. 

window.MenuEventAt {TWindow.} 

wJndow.SetUpMenus {TWindow.} 

menuBar.BuildCmdName {TMenuBar.} 

selection.CanDoCommand {TBoxSe lection.} 

Graying the items that the selection says are not enabled, the window and the menu 
bar set up the menu. 

As the user moves the mouse over the menu, enabled items under the mouse 
are highlighted. If the mouse is released over an enabled item, the menu item 
number is returned. Otherwise zero is returned. 

From a nonzero menu Item number the selection generates the command. The 
method NewCommand creates the command and returns it to the window. This is 
indicated in the flow of control below. 

selection.CanDoCommand {TBoxSe lection.} 

menuBar.DownAt {TMenuBar.} returns menu item # 

window.DoCommand {TWindow.} 

selection.NewCommand {TBoxSe lection.} returns command 

which class command? 

The NewCommand method creates commands in response to menu events. 
There are four choices of how to process a menu event. These are: 

1) Create and return an undoable command. 

You must have defined a subclass of TCommand (for example, 
TRecolorCmd) for the particular command. The created command is an 
Instance of that subclass. The undoable parameter must be set to true. 
The Perform method of the command will be called by the Generic 
Application after committing the last active command. 

2) Return NIL, rather than a command object, for events that are not 
commands. 

View— altering events such as "hide ruler** or *'select all of document** do 
not need to be processed as commands. Returning NIL for a menu event 



preserves the last active command. If undoable, it can still be undone or 
redone. 

Please read the section "Guidelines for Converting Menu Events Into 
Commands " for more insight upon this. 

3) Pass an unrecognized menu item to the Generic Application for processing. 

4) Create and return a command that cannot be undone. 

Typically you define such a command as an instance of the ToolKit class, 
TCommand, with the undoable parameter set to false. Before returning 
you call a method of your creation to execute the command. You may 
need to commit the last command before the body of your command is 
executed. Upon return from NewCommand the last active command is 
committed, if you have not already comrhitt^d it yourself. 

This is done by calling SUPERSELF.NewCommand. 

Note: Each type of undoable command should be an instance of a unique subclass of 
TCommand, since each type makes distinct changes to the document. The Perform 
method of each class should reflect the unique way it's instances do and undo changes 
to a document's data. 



standard commands 

While the selection directly generates commands specific to the application, 
the Generic Application generates commands standard to all applications (eg. Save 
and Put Away ^vs^ Print). 

The selection calls the Generic Application to handle menu item numbers it 
does not recognize. As the flow of control below shows, the selection's 
NewCommand method calls SUPERSELF.NewCommand to invoke the Generic 
Application. 

selection.NewCommand {TBoxSelection.} 

SUPERSELF.NewCommand {TSelection.} Generic Application 

window.NewCommand {TBoxWindow.} 

SUPERSELF.NewCommand {TWIndow.} Generic Application 

The first thing that TSelection.NewCommand does is give the selection's 
co-selections chance to generate the command. The co-selection is a special 
selection created by a ToolKit building block to handle events specific to the building 
block. For example^ a co-selection created by UText (the text building block) would 
handle menu events such as formatting text or changing typestyles. The 
co-selection is assigned to the application selection's coSelection field. 

If the co-selection does not recognize the menu event, the Generic 
Application passes the event to the application's window. The window is typically 
used to handle commands that affect a whole document (such as clear ail boxes), 
rather than a single selected object. 



Finally, any menu items not handled by the window are passed back to the 
Generic Application. It is at this point that a /=>'//7f command, for example. Is 
generated. 

summary of command generation 

1. The selection gets the menu item number. The selection handles 
application specific commands affecting the selected object. 

The selection calls the Generic Application to handle any other commands, 

2. The Generic Application passes the menu item number to the selection's 
co-selection. The co-selection handles building block specific commands 
affecting the (co-selection's) selected otqeet^ 

The Generic Application calls the window to handle what the co-selection 
does not. 

3. The window handles application specific commands affecting the whole 
document. 

The window calls the Generic Application to handle any other commands, 

4. The Generic Application handles standard commands. 

If the Generic Application does not recognize the menu item number it 
alerts the user. 

It puts up a "No Selection " alert for null selections; 

otherwise it puts up an "Unknown Command" alert 

Note: The flow of control applying to NewCommand applies to CanDoCommand 
as well. 

THE ROLE OF THE WINDOW 

The Generic Application makes the window the owner of the generated 
command. Per the Lisa User Interface conventions only one command is active at a 
time. 

The following partial interface lists the fields and methods of TWindow that 
apply specifically to commands. 

Tttindoti ' SUBCLASS OF TObject 
{fields applying to coNMnds) 
lastCnd: TCoMiand; {the last active (uncomitted) coMiand} 

{Methods applying to coMiands) 

FUNCTION {mndOM.)CanDoCowiand(ciidNuN>ei-. TCiidNuM>er; VAR checRIt: BOOLEAN) 

: BOOLEAN; DEFAULT; {calls currentUindOM. CanOoStdComand) 
FUNCTION {T»indOM.}canOo$tdCOMiand<cwMuRbeT: TCMNunber; var checKit. boolean) 



(menu events) 




Window 
Manager 




process 



window 



menuBar 



go first 



DownAt 



returns the menu 
item number 




window 



DoCommand 



TSelection 



_ if item 
not found 






NewCommand 
// item not found 



window 



// item 



not found 



NewCommand 



selection 



NewCommand 



TWindow 



NewCommand 



: BOOLEAN; DEFAULT; {standard coiwand availability) 
PfWCEOURE {TWindw.KoiwitLast; DEFAULT; {c(»Aits and frees the last active cowwnd) 
PROCEDURE <Ttfindoii.)Oocowiand(ciidNunt>ei. TCmMuRber); default; {creates and performs the 

comiand associated with the given nenu itefi nunbei) 
PROCEDURE {THindo«. )«enuEventAt(i»usePt: Point); DEFAULT; {identifies the nenu ite« nunbei 

and calls cuirentUindow.DoCowiand} 
FUNCTION {TUindou. }NewCoiwand(ciidNuiiber. TCudNuKber). TCoMiand; DEFAULT; 

{calls currentuindow. NewStdComand) 
FUNCTION {Tyindou.)NeuStdCoi«and(cwMuM>er. TCwMunber): TCoiwand; DEFAULT; 

{returns a created conwand} 
PROCEDURE {TWindow. )PerforRComand(newComand: TComand); {comits last connand, then performs 

the new connand) -* - 
PROCEDURE {T«indo«. )Perf ornLastCcndPhase. TCudPhase); {performs the current cowand in the 

given comand phase) 
PROCEDURE {TUlndou. )$aveCoiwand(coiinand: TComand); {saves the comand as SELFlastCwJ) 
PROCEDURE {TUindow. }SetUpnenus; {sets up Menus before allowing user to select a nenu iten) 
PROCEDURE {TUindow. )undoLast; {undoes or redoes the last comand) 

Note that a field of the window. lastCmdr keeps track of the fast active command 

The wjndow is primarily responsible for handling undo and redo events, and 
comnnitting connmands. 

As you can see from both the diagram: The Flow of User E^nts (menu events) 
and the following section, the window plays a major role in processing commands. 



PROCESSING COMMANDS 

The selection creates a command. The window processes it. The important 
role that the window plays during the various command phases Is conveyed by the 
following flow of control diagrams. 

the doPhase (command creation) 

The cfoP/fsse creates a new command, and commits the last active command 
before performing the new command. The flow of control in 5Boxer is as follows: 



process.ObeyTheEvent 
window.MenuEventAt 
window.DoCommand 
selection.NewCommand 
window.PerformCommand 
wIndow.CommJtLast 
(windowJastCmd).Commit 
(window. lastCmd).Free 
w i ndow.SaveCommand 
window.PerformLdst 
wIndow.HighLight 

seiection.Highllght 
wlndow.ReveaiSeiection 
selection.PerformCommand 

command.Perform 
wtndow.Update 
window.Highlight 
seleotion.Highiight 



{TProcess.} 

{T Window.} -> meffi/ Item number 

{TWindowJ 

{T Window.} -> (rettu^ns) cmd 

{TWindow.} 

{TWindow.} 

{-} 

{«} 

{TWindow.} cmd —> window JastCmd 

{TWindow.} <pha$e *• doPhase> 

{TWindow.} tirn$ hi^llgh ting off 

{TBoxSelection.} 

{TWindow.} 

{TSelection.} default 

{**} <pfiase - dc^hase} 

{TWindow.} draws the modified view 

{TWindow.} turns fiighlighting on 

{TBoxSelection.} 



{*} - the command's class 



Note: By default, the Generic Application turns highlighting off before and on after 
performing the command. This can be deactivated in the commarxl's CREATE 
method, 

the undoPhase 



The Generic Application applies the undoPhaseXo the command created in the 
doPhase. The undoPhase \% entered when the menu Item number returned from 



{TMenuBar.)OownAt equals the ToolKIt constant, uUndoLast. The flow of control is 
listed below: 



window.MenuEventAt 
window.DoCommand 
window.UndoLast 
window.PerfornnLast 

connnnand.Perform 



{TWIndow.} returns uUndoLast 

{TWindow.} 

{TWIndow.} 

{TWJndow.} Kphase *^ undoPhase> 



M 



< phase = imdoPha$e> 



Note: It is up to the command's Perform method to define the results for the 
different phases. If not undoable, a command is neither performed in this phase nor 
the redoPhase. 

the redoPhase 

The /■^//^/'/^dtj'^ undoes the undoPhase. Its flow of control Is sinnilar to that for 
the undoPhase. The same naenu item number, uUndoLast, Is used to indicate undo 
and redo events. The command's doing field differentiates the two events. The 
/•^jto^/^cJt?^ is entered only if command.doing is false. 

Window.MenuEventAt {TWindow.} returns uUndoLast 

Window.DoCommand {TWIndow.} 

Window.UndoLast {TWindow.} 

window.PerformLast {TWindow.} Kphase = redoPhase> 

{...} 

command.Perform {*} 

{...} 



(phase ~ redoPhase} 



RECOLORINa DUPLICATING, AND CLEAR ALL (In Boxer) 

Three commands are implemented in this stage of Boxer. These are reco/or, 
duplicate, and clear all 

recolor 

Recoloring allows the user to change the color of the selected box. This 
operation is undoable. The command object needs to remember the original color of 
the box to be able to undo a color change. 

If no box \% selected, the recolor menu items are disabled (grayed). 

User interface: A separate menu for colors will be^dlsplayed. The user will be able 
to choose any of the following colors from the menu: 'white, light gray, gray, dark 
gray, and black. The color selected will be the new color of the selected box. 
Undoing the command restores the box's original color. 

duplicate 

Duplicate allows the user to duplicate the selected box. The newly created 
duplicate becomes the selected box. This box will have the same shape and color as 
the original. 

This operation is undoable. The command needs to keep track of both the new 
box and the original box to be able to undo and redo Itself. 

If no box is selected/ the duplicate mexm item Is disabled. 

User interface: A duplicate rr\2m item will be displayed in the Edit menu. When the 
user chooses this menu item, a duplicate of the selected box will be created and 
selected. Undoing the command erases the duplicate and reselects the original box. 

clear all 

Clear all allows the user to clear the boxView of all boxes. For this stage of 
Boxer this operation is not undoable. As such, a warning needs to be supplied to the 
user to verify whether the command should be performed. 

Since ^/p<?/' <?// operates upon the entire window, and does not depend upon the 
selection, it is always enabled. 

User interface: A clear all n\em item will be displayed in the Edit menu. When the 
user chooses this menu item, an alert box is immediately posted. The alert box 
warns the user that the command cannot be undone. The user is given the choice to 
cancel the command or perform It. If performed, the window and the view are 
cleared of all boxes. 

Note: According to the Lisa User Interface Standards, £?/?<£/- /^//should not be 
a separate command. The user should choose Select All dioA then Clear However, 
for pedagogical reasons, we implement Clear Air\i\ this segment. 



IMPLEMENTATION 

We modify the previous stage of Boxer, SBoxer, to implement the recolor, 
duplicate^ and clear <y// commands. 

With the exception of the GanDoCommand and NewCommand methods in 
the selection and the window, we can implement each command separately. This Is, 
in fact, what we do. 

Implementation of Duplicate: 

To implement duplicate^^ need to: 

1. Insert a duplicateTX\^x\\i\X^xx\ into the Edit menu in the phrase file. 

2. Insert the menu item number of duplicate \t\Xq the interface. Menu item 
constants generally begin with a lower case "u" (e.g. uDuplicate). 

3. Define a new command class, TDuplicateCmd. This class defines two 
fields: oldBox for the old box, and newBox for the duplicate box. 

4. Modify {TBoxSelection.}CanDoCommand to enable the duplicate m^twi 

item when a box is selected. 

5. Modify {TBoxSelection.}NewCommand to generate an Instance of 
TDuplicateCmd when the menu item number supplied is uDuplicate. 

To define the class, TDuplicateCmd, we include the following methods: 

{TDupl icateCmd.lCREATE 

Creates a duplicate ^orrxm^w^ object. Also duplicates the old box. 
Duplicating the box in the CREATE method simplifies the Perform code. 

{TDupl icateCmd.}Free 

Frees the command. Frees the duplicate if the last phase was undoPhase. 

{TDupl icateCmd.}Per form 

Performs the command in the three phases. 

in the doPhase 

Append the new box to the boxView's boxList. 

Remake the selection to highlight the new box^ not the original. 

Invalidate the new box's LRect. 

in the undoPhase 

Delete the new box from the boxList. 

Remake the selection to highlight the old box. not the new. 

Invalidate the new box's LRect. 



in the recfoP/fase 
(same as the doPhase) 

theory of operation (duplicate) 

The operation. of the cip//catecommar\6 proceeds as follows: 

The Generic Application is waiting in the event loop for an event. When the user 
depresses the naouse on the nnenu bar. the Generic Application sets up the nrjenus. It 
requests infornnation about your nnenus and nnenu Items by calling: 

selection.CanDoComnnand {TBoxSelection.} 

1. Indicates which of your selection-dependent nnenu items are enabled 
or disabled. If the command number passed to you is not one your 
selection handles, then call SUPERSELF.CanDoCommand to give 
control back to the Generic Application. 

Since you are not using any building blocks, and thus have no co— selections, the 
Generic Application promptly calls: 

window.CanDoCommand {TBoxWindow.} 

2. Indicates which of your selection- independent menu Items are 
enabled or disabled. If the command number is not one your window 
handles, call SUPERSELF.CanDoCommand to give control back to 
the Generic Application. 

The Generic Application then processes standard menu items to complete setting up 
the menus. The Generic Application then passes control to the Menu Manager. The 
Menu Manager returns the number of the menu item the user released the mouse on. 
If no menu item was chosen, zero is returned. 

The Generic Application application gives you the first opportunity to identify 
the newly generated menu event. It calls: 

selection.NewCommand {TBoxSelection,} 

3. Compares the menu item number supplied with those that your 
application will process directly. If the menu Item number equals 
uDupMcate, then: 

Creates a new instance of TDuplicateCmd. You supply the 
handle of the currently selected box, which is saved as 
SELF.oldBox. {TDupllcateCmd.}CREATE duplicates the selected 
box and assigns the duplicate to SELF.newbox. 

4. Returns the ^^//i?<ye'^ command to the Generic Application. 

[From this point on the menu event is assumed to be uDuplicateJ 

The Generic Application commits and frees the last command. It then installs 
dupiicate\x\ the window's lastCmd field. Next it calls your code to unhighlight the 
current selection before performing duplicate: 



selection.Highlight {TBoxSelection,} 

Now the Generic Application reveals the selection as specified in the connmand's 
revelation field. If revealing the selection requires scrolling, it calls view.Draw as 
needed. It then calls your code to perform the doPhaseoi the connnnand: 

lastCmd.Perform {TDuplicateCmd.} 

5. Makes the duplicate the new selected object. Invalidates the 
duplicates's shape LRect. Returns. 

The Generic Application now updates the window and highlights the current selection. 
The duplicate box is thus drawn and highlighted. 

Successive undo and redo menu events cause the Generic Application to call your 
command's Perform method with the respective phase. 

When a menu event is received that generates a new command, the Generic 
Application attempts to commit the last command. It does the commit only if the 
last command phase was doPhaseor redoPhase 

To commit a command, the Generic Application executes the command's Commit 
method. In the case of duplicate X\\^X method is {TCommand.}Commlt, which is a 
no-op. Next the Generic Application frees the last command. It needs to call 
your code to do so: 

lastCmd.Free {TDuplicateCmd.} 

5. Frees the duplicate if the last phase was undoPhase Next frees 
itself. 

The Generic Application then proceeds with the new command. 



Implementation of HeCotor: 

To implement reco/or^e need to: 

1. Add a Color menu to the phrase file, including the following menu items: 

white , f/ght gray gray dark gray black 

2. Insert their menu item numbers into the interface. 

3. Define a new command class, TRecolorCmd. This class defines two fields: 
color for the new color, and box for the selected box. 

4. Modify {TBoxSelectlon.}CanDoCommand to enable the recolor menu 

items when a box is selected. 

5. Modify {TBoxSelection.}NewCommand to generate an instance of 
TRecolorCmd when one of the recolor menu item numbers is supplied. 

To define the class, TRecolorCmd, we include the following methods: 

{TRecolorCmd.}CREATE 

Creates a /le^^^/i?/- command object. Sets the color field to the color 
chosen. 

{TRecolorCmd.}Perform 

Performs the command in the three phases. 

in the doPhase 

Swap the color of the box with the command's color field. 

Invalidate the selected box's LRect. 

in the undoPhase 

(same as the doPhase) 

(the effect is that the original color is restored) 

in the redoPhase 
(same as the doPhase) 

Implementation of Clear A//: 

The Implementation Is a little different here, since clear all \% not undoable. 
The main change is that no new command class is defined. Instead we create the 
command as an Instance of TCommand. We add a special method to the boxWindow 
to perform the command. That method is added to the boxWindow, because the 
con)mand is independent of the boxSelection. 

To Implement clear all'^e need to: 



1. Insert a clear a^//menu item into the Edit nnenu in the phrase file, 

2. Insert the nnenu itenn number of clear all \x\X^ the Interface. Use the 
menu item constant uCfearAfl. 

3. Insert an alert into the phrase file warning the user that clear all QBimoX 
be undone. Before the command is performed we want to give the user a 
chance ta cancel; since it is not going to he undoable. 

To insert the following alert: "The Clear All command cannot be undone", 
you must: 

a. Put the following text into the phrase file. Along with the alert it 
defines a corresponding alert number and alert type. 

; PROCEDURE {TBox«ind<w. }l«e«CoiwarKJ <i<here, the aleit is called f ion} 

; cantundo = 1001; {Value of the alert constant) 
1001 caution cancel alert 
You will not be able to undo ClearAll 

This is a caution cancel alert It gives the user the option to cancel 
the named operation^ or to continue. To make this alert 

parameterized hy the command name, you could type "You will not 

be able to undo 'C. " 

b. Put a corresponding alert constant Into the interface. 

cantundo = 1001; 

4. Add a method to the window^ {TBoxWindow.}ClearAII. This method deletes 

every box In the boxView's boxLlst; and replaces the selection with the 
null selection. 

5. Modify {TBoxWindow.}CanDoCommand to always enable the clear all 
menu item. 

5. Modify {TBoxWindow.}NewCommand to generate an instance of 

TCommand when the menu item number supplied is uClearAM. Next put 
up the alert. If the user does not cancel the alert, call SELF.CIearAI! to 
clear the boxes. 

Alote: Returning an instance of TCommand will commit the last 
command automatically. The Generic Application will also call 
{TCommandJPerform, but this method is a no-op. That is why 
NewCommand explicitly calls special code to perform commands that 
cannot be undone. 

To put up the alert defined above, you must make the following call: 

process. Ciution(cantUndo); {puts up the caution alert cantundo} 

Implementation Summary 

The actual Implementation for 5Boxer is summarized below. The code for 
SBoxer is used as the base for all changes. 



New Constants 

uUhite = 1006; 
uLtfiiay - 1007; 
uGiay - 1008; 
uOkOiay = 1009; 
ueiack = 1010; 
uOuplicatc = 1011; 
uClearAll * 1012; 

{phiases} 
cantUrnk) = 1001; 

New Classes 



TCndNunbei; 



[TRecolorCwd] 

fUHCTIOH {TRecolorCRd.)CREATE (object: TObject; itsHcap: THeap; itSCudNURber: 

itSView: TBoxViW; itseox: T80X; itSColOI: TColOl) 

: TRecolorCRd; 



PROCEDURE (TRecolorCwd. )ferforii; OVERRIDE; 

[TDuplicateCnd] 

FUNCTION (TDuplicateCud. KREATE (object: TObject; itsHeap: THeap; 

ItsCRdNunbei: TCMNuftber; itsview: TBoxVieM; 

itsOox: TBox): TOuplicateOwJ ; 
PROCEDURE <TDuplicateCP»d. >Frcc; OVERRIDE; 
PROCEDURE {TDuplicateCiid.>Perforii; OVERRIDE; 

New Methods (for existing classes) 

[TBoxSclectiofi] 

PROCEDURE {TBoxSelection.}C«nOoCoiNiifMf(ciidNuRber: TCRdNunbet; VAR checkit: BOOLEAN) 

: BOOLEAN; OVERRIDE; 

PROCEDURE {TBoxSelectlon.)NeiiCOMi«nd(cfidNuM>er: TCndNURber): TCOWMnd; OVERRIDE; 

PROCEDURE {TBoxSelection. )lloitseRele«se; OVERRIDE; 

If the nnouse nnoved with the button down (a moose /77^kg> event) 
{TBoxSelection.}MouseRelease commits the last commands 
Otherwise it returns. 



[TBoxtlifMkNf] 

PROCEDURE {TBoxUind(M.)€anOoCofiMnd(cRdNuviber-. TCndNuAbei; VAR cnecRIt: BOOLEAN) 

: BOOLEAN; OVERRIDE; 
PROCEDURE {TBoxUindOW. >lletfC0llfiand(CPldNuM)er: TCimNuM>er): TCoimand; OVERRIDE; 
PROCEDURE {TBoxVindOM. )ClearAll; 



Modif ied Method 

[TCieateBoxSelection] 

PROCEDURE {TCreateBoxSelection. )lto(iseRelease; OVERRIDE; 

{TCreateBoxSelection.jMouseRelease now commits the last 
command before adding the newly created box to the view. 



Something to think about: If box creation did not commit the last command 
then what would the following series of events do? 

1. Duplicate a box 

2. Create a box 

3. Undo 

Hint: Does creating a box normally affect window. I astCmd? 



GUIDELINES FOR CONVERTING MENU EVENTS TO COMMANDS (optional) 

Reco/on duplicate, and clear all, as with all commands, should be undoable. It 
is only for demonstration purposes that clear all is not undoable in this segment. 

In general, menu events that change the document, such as cuthx\^ paste, 
should be undoable. Exceptions can be made if the cost is too great, as in revert to 
previous version 

Menu events that only change the selection or view, such as select all or hide 
ruler, should not be undoable. 

Consider the following example. A user cuts an object from a document, then 
selects the entire document. Suddenly she chooses to undo the last command. The 
last command is the cut not the select alL Therefore the ^^^is undone 

Sometimes menu events make such drastic changes to the display that It 
would be confusing to undo the last command. For example, within a bar graph in 
LisaGraph a user might change the text on the X-axis label, then immediately 
change the graph to a pie chart. Even though changing to a pie chart does not change 



the document, undoing the text change at this point would be confusing to the user 
because the context is gone. 

If a menu event changes an entire view; as opposed to just the selection, it 
should be made Into a command. There are actually no hard and fast rules for what 
kind of events should be commands. Just use your best judgement. 



Questions: 



GcxTwnands Lab 

Pirpose: 

- To implement redo and tk^licste commands with undo. To implement clear all 
command without undo. 

V^nA you ve about to do: 

You will compile and run 6Boxer, then optionally modify the source. This 
should be done in the following steps: 

1) Copy the following files onto your prefix volume. 

eUBoxer.TEXT 
6UBoxer2.TDa 
6hBoxer.TEXT 
6PBoxer.TEXT 

2] Compile^ install and run the sample applicatioa 6Boxei. Use 46 as 
the tool number. 

3) Scan the listings of the four files in the sample application. These 
are included in the appendix, "Code Samples for this Segment". 

Study the edit and color menus in the phrase file. 

4) [Optional] Make the clear all command undoable. 

Hint: Think about how you would save the view during the doPhase 
and the redoPhase. 

Earning: Be i^ery cateful about what gets restored as the selected 
object ckjring the undoPhase. 

Things to look out for: 

- fYevlous command is not committed. 

You must create a command in response to a clear all menu event. 

- Boxes disappear^ but do not reappear. 

Are you saving the view's list of boxes when doing the command. 

- Boxes do not disappear. 

Check whefc you are actually invalidating. 

Does your command's P e ifoini method change the view? 
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PROCEDURE {TBoxUindou. }NeuCommand 
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1001 caution cancel alert 
You uill not be able to undo ClearAll. 
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Shades 
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PROGRAM MBBoxer 
USES 



{$U UObject } UObject, 

{$IFC MbraryVersion <• 20) 

{$U UFont] UFont. 

{$£NDC] 



$U OuickDrau 
SU UDrau 
$U UABC 


OuickDrau 
UDrau, 
: UABC. 


{$U U6Box«r 


) USBoxer 


CONST 




phraseVersion ■ 


1; 


BEGIN 





process ; ■ TBoxProcess. CREATE; 
process. Comnence(phraseVersion}; 
process. Run; 
process. Coinplete(TRUE}; 



END. 
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[This segment of Boxer inplements commands uith undo} 
Copyright 1985, Apple Computer Inc.] 



UNIT U6Boxer 

INTERFACE 

USES 

{$U UObJect) 

{$IFC 1 IbraryVerslon <• 

{$U UFont) 
{KNDC) 



SJ OuickDrau} 
■$U UDreu) 
^$U UABC} 



CONST 

colorUhlte - 1; 
colorLtGrey ■ 2; 
coIorGray ■• 5; 
colorOkGray ■ 4; 
coIorBlack > 5; 

{ selection kinds } 
boxSelectionKind « 1; 
createBoxSel ect ionKind 

{ Menus } 
uWhlte • 1006; 
uLtGray - 1007; 
uGray ■ 1008; 
uDkGray » 1009; 
uBlack - 1010; 
uDupl icate - 1011; 
uClearAll - 1012; 



UObJect, 

20) 
UFont, 



OuickDrau, 

UDrau, 

UABC; 



{ Phrases ) 
cant Undo 



1001; 



TYPE 



TColor ■ colorWhite. . coIerBlack; {color of a box] 
{Neu Classes for this Application} 
TBox - SUBCLASS OF TObject 



(Variables} 
shapeLRect: 
color 



LRect; 
TCol or 



{Creation/Destruction} 

FUNCTION TBox. CREATE{ object: TObject; itsHeap: THeap): TBox; 

{ Highlighting support } 

PROCEDURE Tiox. Pa intHandles; 

{ Framing uhile creating } 
PROCEDURE TBox. DrauFratne; 

{Display} 

PROCEDURE TBox. Drau; 
END; 



TBoxVleu - SUBCLASS OF TWieu 



{Variables} 

boxList: 



TLlst; 



{Creat ion/Destruct ionl _ . _ , , ^ .„ , 

FUNCTION TBoxVieu. CREAT E( object: TObject; itsHeap: THeap; ItsPanel: TPanel ; itsExtent: LRect) 

: TBoxVieu; 

FUNCTION TBoxVieu. BoxUith(LPt; LPoint); TBox; 

{ Inval idat ion) 
PROCEDURE TBoxVieu. InvalBox( inval LRect: LRect); 

PROCEDURE TBoxVieu. MousePress(i»ouseLPt: LPoint); OVERRIDE; 

(Display) 

PROCEDURE TBoxVieu. Drau; OVERRIDE; 

(Initialization} ^ ^ 

PROCEDURE TBoxVieu. InitBoxLlstC itsHeap: THeap); 
FUNCTION TBoxVieu. NoSel ect ion: TSelectlon; OVERRIDE; 
END; 

TBoxSel ect ion - SUBCLASS OF TSelectlon 

(Variables} 
box: TBox; 

(Creat ion /Dest ruct ion} 

FUNCTION TBoxSel ect ion. CREATEC object: TObject; itsHeap: THeap; itsVleu: TVieu; ItsBox: TBox; 

ItsKind: INTEGER; itsAnchorLPt: LPoint): TBoxSel ect ion; 

(Drauing - per pad} 

PROCEDURE TBoxSel ect Ion. Highl ightChlghTrans it: THlghTranslt); OVERRIDE; 

(Selection - per pad} 
PROCEDURE TBoxSel ect ion. HouseMove( mouseLPt : LPo int ) ; OVERR IDE; 
PROCEDURE TBoxSel ect ion. MouseRel ease; OVERR IDE; 

(Command Dispatch} 
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111— FUNCTION TBoxSelect Ion. NeuCommand(ciT>dNu(nber. TCmdNumber): TCommand; OVERRIDE; 

112— FUNCTION TBoxSelect ion. CanOoCo»nn»nd(cmdNumber. TCmdNumber. VAR check It: BOOLEAN) 
115 — : BOOLEAN; OVERRIDE; 

114 — END; 

115 — 

116 — 

117 — TCreateBoxSelection « SUBCLASS OF TSelection 

118 — 

119 — {Variables} 

120 — box; TBox; 

121 — 

122 — {Creat lon/Destruct Ion) 
125— FUNCTION TCreateBoxSel ect ion. CREATE( object: TObject; ItsHeap; THeap: ItsVieu; TVieu; 

124 — ItsAnchorLPt: LPoint): TCreateBoxSelection; 

125 — 

126 — {Selection - per pad] 

127— PROCEDURE TCreateBoxSel ect ion. HouseMoveCmouseLPt: LPoint); OVERRIDE; 

128— PROCEDURE TCreateBoxSelection. MouseRel ease; OVERRIDE; 
129 — END; 

150 — 

151 — 

152 — { This command recolors the selected box and is not undoable) 

153 — TRecolorCmd - SUBCLASS OF TCommand 

154 — Box; TBox; 

155 — color TColor, 

156 — 

157 — {Creation} 

158— FUNCTION TRecolorCmd. CREATE( Ob ject: TObiect; ItsHeap; THeap; itsCmdNumber; TCmdNumber; 

159 — itsVieu; TBoxVieu; itsBox: TBox; itsColor. TColor): TRecolorCmd; 

140 — 

141— PROCEDURE TRecolorCmd. Per form(cmdPhase; TCrodPhase); OVERRIDE; 

142 — END; 

145 — 

144 — 

145 — { This command duplicates the selected box and is undoable } 

146 -- TDupl icateCmd • SUBCLASS OF TCommand 

147 — ol dBox, neuBox; TBox; 

148 — 

149 — {Creation} 
150— FUNCTION TDupl icateCmd, CREATE( object: TObject; itsHeap: THeap; ItsCmdNumber TCmdNumber, 

151 — ItsVieu; TboxVieu; itsBox; TBox): TDupl icateCmd; 

152 — 

155 — {Command Execution} 

154— PROCEDURE TDupl icateCmd. Perfonn(cnidPhase; TCmdPhase); OVERRIDE; 

155 — END; 

156 — 

157 — 

158 — TBoxProcess - SUBCLASS OF TProcess 

159 — 

160 — {Creation/Destruction} 

161 — FUNCT ION TBoxProcess. CREATE; TBoxProcess; 

162— FUNCTION TBoxProcess. NeuDocManager( vol umeP re fix; TFilePath; openAsTool: BOOLEAN) 

165 — : TDocManager. OVERRIDE; 

164 — END; 

165 — 

166 — 

167 — TBoxDocHanager ■ SUBCLASS OF TDocManager 

168 — 

169— {Creation/Destruction} 

170— FUNCTION TBoxDocHanager. CREATE( object; TObject; itsHeap; THeap; itsPathPref ix: TFilePath) 
171 — : TBoxDocHanager, 

172— FUNCTION TBoxDocHanager. NeuUindou{ heap; THeap; umgrlD; TUindouID): TUindou; OVERRIDE; 

175 — END; 

174 — 

175 — 

176 — TBoxUindou • SUBCLASS OF Tyindou 

177 — 

178 — {Creation/Destruction} 
179— FUNCTION TBoxUindou. CREAT E{ object: TObject; itsHeap; THeap; itsUmgrlD; TUindouID); TBoxUindou; 

180 — 

181 — {Document Creation} 

182— PROCEDURE {TBoxUindou. } BlankStat ionery; OVERRIDE; 

185 — 
184 — {Commands} 

185— PROCEDURE TBoxUindou. CI earAll; 

186— FUNCTION TBoxUindou. NeuCommand( cmdNumber. TCmdNumber): TCommand; OVERRIDE; 

187— FUNCTION TBoxUindou. CanDoComroand( cmdNumber TCmdNumber; VAR check It; BOOLEAN): BOOLEAN; OVERRIDE; 

188 — END; 

189 — 

190 — 

191 — 

192 — IMPLEMENTATION 
195 — 
194 — ($1 U6Boxer2. text) 

2 1 — {U6B0XER2} 

2 2 — 

2 5 — METHODS OF TBox; 

2 4 — 

2 5 — A FUNCTION TBox. CREATE( object: TObject; itsHeap: THeap): TBox; 

2 6 0- A BEGIN 

2 7— fSIFC fTr»ce}BP(ll):{$ENDC) 

2 8— SELF :- NeuObject( itsHeap, THISCLASS); 

2 9 — WITH SELF DO 

2 10 1- BEGIN 

2 11 — shapeLRect : - zeroLRect; 

2 12 — color :• colerGray; 

2 15 -1 END; 

2 14 — {$IFC nrace)EP; {JENDC) 

2 15 -0 A END; 

2 16 — 

2 17 — {$IFC rOebugMethods) 

2 18 — A PROCEDURE TBox. Fields( PROCEDURE Field(nameAndType:S255)); 

2 19 0- A BEGIN 

2 20— Field('$haprt.Rect: LRecf); 

2 21— Fieldf'color INTEGER); 

2 22 — FieldC"): 

2 25 -0 A END; 

2 24 — {$ENDC} 

2 25 — 

2 26 — 
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{This draus a particular box} 
PROCEDURE TBox. Drau; 
VAR IPat: LPattem; 
BEGIN 

f$IFC nrace)BP(lO): CSENDC) 

P«nNonnal; 

IF LRect IsVisibl*(SELF. shap«LRect) THEN {this box n«*ds to be draun} 
BEGIN 
{Get a Ouickdrau pattern to represent the box's color] 
CASE SELF, color OF 



2 


27 ~ 




2 


28 — 


A 


2 


29 — 




2 


50 0- 


A 


2 


51 — 




2 


52 — 




2 


53 — 




2 


54 — 




2 


55 1- 




2 


56 — 




2 


57 2- 




2 


58 — 




2 


59 — 




2 


40 — 




2 


41 — 




2 


42 — 




2 


43 — 




2 


44 -2 




2 


45 — 




2 


46 ~ 




2 


47 — 




2 


48 — 




2 


49 -1 




2 


50 — 




2 


51 -0 


A 


2 


52 — 




2 


55 — 




2 


54 — 


A 


2 


55 0- 


A 


2 


56 ~ 




2 


57 — 




2 


58 -- 




2 


59 -- 




2 


60 — 




2 


61 -0 


A 


2 


62 — 




2 


65 — 




2 


64 ~ 




2 
2 


65 — 

66 — 


A 


2 


67 ~ 




2 


68 — 




2 


69 — 




2 


70 ~ 


B 


2 


71 0- 


B 


2 


72 — 




2 


75 — 




2 


74 -0 


B 


2 


75 ~ 




2 


76 0- 


A 


2 


77 — 




2 


78 — 




2 


79 — 




2 


80 — 




2 


81 1- 




2 


82 — 




2 


85 — 




2 


84 — 




2 


85 -1 




2 


86 — 




2 


87 — 




2 


88 — 




2 


89 — 




2 


90 -0 


A 


2 


91 — 




2 


92 ~ 




2 


93 — 




2 


94 ~ 




2 


95 — 




2 


96 — 




2 


97 — 


A 


2 


98 — 




2 


99 0- 


A 


2 


100 -- 




2 


101 — 




2 


102 -- 




2 


103 — 




2 


104 — 




2 


105 — 




2 


106 -0 


A 


2 


107 — 




2 


108 -- 




2 


109 — 


A 


2 


110 0- 


A 


2 


111 — 




2 


112 -- 




2 


115 -0 


A 


2 


114 — 




2 


115 -- 




2 


116 — 




2 


117 -- 




2 


118 ~ 


A 


2 


119 -- 




2 


120 — 




2 


121 0- 


A 


2 


122 ~ 




2 


125 — 




2 


124 ~ 




2 


125 — 




2 


126 — 




2 


127 — 




2 


128 ~ 




2 


129 -0 


A 


2 


150 — 




2 


151 -- 




2 


152 ~ 




2 


133 — 


A 


2 


154 — 




2 


155 — 




2 


156 0- 


A 



colorUhlte: IPat 

col orttGray; IPat 

colorGray; IPat 

colorOkGray: IPat 

colorBlack: IPat 

OTHERWISE IPat 
END; 



IPatUhite; 

IPatLtGray; 

IPat Gray; 

IPatDkGray; 

IPatBlack; 

IPatUhite; {this case should not happen] 



{Fill the box ulth the pattern, and drau a frame around it] 
FlllLRect(SELF. shapeLRect, IPat); 
FrameLRect(SELF. shapeLRect); 
END; 
{$1FC fTrace)EP;{$ENDC] 
END; 

{ Frame a particular box] 
PROCEDURE TBox. OrauFrame; 
BEGIN 

($IFC nrace}BP(10);{$ENDC] 

PenNormal ; 

PenMode(PatXOr); 

FrameLRect(SELF. shapeLRect); 

{$IFC nracejEP; {SENDC] 
END; 

{This calls the DoToHandle Procedure once for each handle LRect; user of this method must 
set up the pen pattern and mode before call ing] 
PROCEDURE TBox. Paint Handles; 
VAR hLRect, 

ShapeLRect: LRect; 
dh. dv: LONG INT; 

PROCEDURE HoweHandleAndPaint(hOffset, vOffset; LONGINT); 
BEGIN 

Of fsetLRectC hLRect, hOffset. vOffset); 

Paint LRect (hLRect); 
END; 



i\ 



BEGIN 

$IFC n race) BP( 10); {SENDC} 
et LRect (hLRect, -5, -2, 3, 2); 
ShapeLRect : ■ SELF. shapeLRect; 
WITH ShapeLRect DO 
BEGIN 

dh ; - right - left; 
dv : • bottom - top; 

MoveHandleAndPaint(left, top); {draw top left handle] 
END; 
HoveHandleAndPaintf dh, 0); {then top right] 

HoveHandleAndPaintfO, dv): then bottom right] 

HoveHandleAndPaint(-dh. O); {finally bottom left] 

{$IFC n race} EP;{ SENDC) 
END; 

END; 

METHODS OF TBoxVieu; 

FUNCTION TBoxVieu. CREATE( object: TObject; itsHeap: THeap; itsPanel: TPanel ; itsExtent: LRect) 

: TBoxVieu; 
BEGIN 

{$1FC nraco}BP(ll);{$ENOC} 
IF object -NIL THEN 

object :• NeuObject( it sHeap, THISCLASS); 
SELF :- TBoxVieu( itsPanel. NeuVieu( object, itsExtent, TPrintManager. CREATE(NIL, itsHeap), 

stdttargins, TRUE)); 
{JIFC fTracejEP; { SENDC] 
END; 

{SIFC fDebugflethods] 

PROCEDURE TBoxVieu. F lei ds( PROCEDURE F iel d( nameAndType: S255)); 
BEGIN 

TVieu. F iel ds( Field); 
FieldCboxList: TLisf ); 
END; 
{SENDC} 

{This returns the box containing a certain point} 
FUNCTION TBoxVieu. BoxUith(LPt: LPoint): TBox; 
VAR box: TBox; 

$: TListScanner; 

BEGIN 

{SIFC fTr»celBP( 11); {SENDC] 

boxUith : - NIL; 

s ;• SELF. boxList. Scanner 

WHILE s. Scan(box) DO 

IF LPtInLRect(LPt, box. shapeLRect) THEN 
boxUlth : • box- 

{SIFC n race] EP; {SENDC] 
END; 

{This draus the 1 ist of boxes] 
PROCEDURE TBoxVieu. Drau; 
VAR box; TBox; 

$; TListScanner, 

BEGIN 
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2 157— {$IFC rrr«ce)BP(10); {SENDC) 

2 158 — $ :• SELF. boxList. Scanner, 

2 159— IWILE $. Scan(box) 00 

2 140 — box. Drau: 

2 141 — {$IFC fTnicaJEP; {SENDC} 

2 142 -0 A END; 

2 143 — 

2 144 — 

2 145 — (This dettrmines which type of selection to create} 

2 146 — A PROCEDURE TBoxVieu. Hou$ePrBSs(mouseLPt; LPoint); 

2 147 — VAR aSelection: TSel ect ion; 

2 148 — panel: TPanel ; 

2 149 — box: TBox; 

2 150 — 

2 151 0- A BEGIN 

2 152— {JIFC nrace)BP{ll);{$ENDC} 

2 155 — panel : • SELF, panel ; 

2 154 — panel. Hlghl ight( panel, select ion, hOntoOff); {Turn off the old highlighting] 

2 155 — box :- SELF. BoxUith(ii»u$eLPt); {Find the box the user clicked on) 

2 156 - 

2 157 — IF box - NIL THEN 

2 158 — {Create an instance of TCreateBoxSel ect ion} 

2 159 — aSelection :■ panel, select ion. FreedAndReplacedByC 

2 160— TCreateBoxSelection. CREATE(NIL, SELF. heap. SELF, mouseLPt)) 

2 161 — ELSE 

2 162 — {Create an instance of TBoxSel ect ion} 

2 165 — aSelection :> panel, select ion. FreedAndReplaced6y( 

2 164 — TBoxSel ect ion. CREATE( NIL, SELF, heap, SELF, box, boxSelect ionKind, mouseLPt)); 

2 165 — 

2 166 — panel. Highl ight( panel, select ion, hOffToOn); {Turn on the highlighting for the newly selected box} 

2 167 — 

2 168 — sel f. panel, select ion. Ha rkChanged; fAlIou the document to be saved so that any changes made} 

2 169 — {can become pennanent} 

2 170— {JIFC nrace)EP;{$ENDC} 

2 171 -0 A END; 

2 172 — 

2 175 — 

2 174 — A PROCEDURE TBoxVieu. InvaIBox( inval LRect: LRect); 

2 175 0- A BEGIN 

2 176— fSIFC nrace}BP(10);{$ENDC} 

2 177— Inset LRect ( inval LRect, -5, -2); 

2 178— SELF, panel, Inval LRect{ inval LRect); 

2 179 — {JIFC nrace}EP; {SENDC} 

2 180 -0 A END; 

2 181 — 

2 182 — 

2 185 — A PROCEDURE TBoxUieu. InitBoxList ( itsHeap: THeap); 

2 184 — WAR boxList: TList; 

2 185 0- A BEGIN 

2 186— (JIFC fTracelBP(ll);f$ENDC} 

2 187— boxList :- TList. CREATE( NIL, itsHeap, 0); 

2 188 — SELF. boxList :» boxList; 

2 189 — {$1FC fTrace}EP; {SENDC} 

2 190 -0 A END; 

2 191 — 

2 192 — 

2 195 — A FUNCTION TBoxVieu. NoSel ect ion: TSelection; 

2 194 0- A BEGIN 

2 195 — {$IFC fTrace}BP(ll);{$ENDC} 

2 196— NoSel ect Ion :- TBoxSel ect ioa CREATE( NIL, SELF. Heap, SELF, NIL, nothingKind, zeroLPt); 

2 197 — {$IFC nrace}EP; {SENDC} 

2 198 -0 A END; 

2 199 — 

2 200 — END; 

2 201 — 

2 202 — 

2 205 — METHODS OF TBoxSel ect ion; 

2 204 — 

2 205 — A FUNCTION TBoxSel ect ion. CREATE{ ob ject ; TObject; itsHeap: THeap; itsVieu: TVieu: itsBox: TBox; 

2 206 — itsKlnd: INTEGER; itsAnchorLPt: LPoint): TBoxSel ect ion; 

2 207 0- A BEGIN 

2 208 — {$1FC nrace}BP(ll); {JENDC} 

2 209 — IF object -NIL THEN 

2 210— object :- NeuObiect{ itsHeap, THISCLASS); 

2 211— SELF ;- TBoxSel ect ion( TSelection. CREATE( object, itsHeap, itsWieu, itsKind, itsAnchorLPt)); 

2 212 — 

2 215 — SELF, box : - itsBox; 

2 214 — {$1FC fTrace}EP; {SENDC} 

2 215 -0 A END; 

2 216 — 

2 217 — {$IFC fOebugMethods} 

2 218 — A PROCEDURE TBoxSel ect ion. Fields( PROCEDURE Field(nameAndType: S255)); 

2 219 0- A BEGIN 

2 220— TSelection. Fieldsf Field); 

2 221 — FieldCbox: TBox'); 

2 222 -0 A END: 

2 225 — {SENDCj 

2 224 — 

2 225 — 

2 226 -- {This draus the handles on the selected box} 

2 227 — A PROCEDURE TBoxSelection. Highl ight(highTransit: THighTransit); 

2 228 0- A BEGIN 

2 229— {$IFC fTrace}BP(ll);{$ENDC} 

2 250 — IF SELF, kind <> nothingKind THEN 

2 251 1- BEGIN 

2 252 — thePad. SetPenToHighl ight(highTransit); {set the drawing mode according to desired highlighting] 

2 255 — SELF. box. PaintHandles; {draw the handles on the box} 

2 254 -1 END; 

2 255 — {$IFC fTrace}EP;{$ENOC} 

2 256 -0 A END; 

2 257 — 

2 258 — , 

2 259 — [This is called uhen the user moves the mouse after pressing the button} 

2 240 — A Procedure TBoxSelection. MousehoveC mouseLPt: LPoint); 

2 241 — VAR dlffLPt: LPoint; 

2 242 — boxVieu: TBoxUieu; 

2 245 — shapeLRect; LRect; 

2 244 0- A BEGIN 

2 245— {$IFC nracelBP( 11); {SENDC} 

2 246— box V ieu :- TBoxVieut SELF, view); 



2 247 — 

2 248 — (Hou far did mouse move?) 

2 249— LPtMlnu$LPt(»ou$0LPt, SEtr, currLPl, dlffLPt); 

2 250 — 

2 251 ~ {Move It If delta i$ nonzero) 

2 252 -- IF NOT Equal LPt(diffLPt. zeroLPt) THEN 

2 25: 1- BEGIN 

2 254 ~ SELF. currLPt : ■ nouseLPt; 

2 255 -- 

2 256 — shapeLRect : ■ SELF. box. shapeLRect; 

2 257 — {Compute old and neu positions of box} 

2 258 — box^'ieu. InvalBox( shapeLRect); 

2 259— Of f$etLRect( ShapeLRect. diffLPt.h. dlffLPt. v); 

2 260 — boxVieu. Inval Box( shapeLRect); 

2 261 — 

2 262 — SELF. box. shapeLRect : ■ shapeLRect; 

2 265 -1 END; 

2 264— {$1FC fTrace)EP;{$ENDC) 

2 265 -0 A END; 

2 266 — 

2 267 — 

2 268 — ft PROCEDURE TBoxSel ect ion. MouseRel ease; 

2 269 0- A BEGIN 

2 270— {SIFC fTrace)BP(ll); {SENDC) 

2 271 — {If the mouse moved then commit any outstanding command J 

2 272— IF NOT Equal LPt( SELF. currLPt, SELF. anchorLPt) THEN 

2 273 — SELF, uindou. Commit Last; 

2 274— {$IFC nrace}EP;{$ENDC) 

2 275 -0 A END; 

2 276 — 

2 277 — 

2 278 — A FUNCTION TBoxSel ect Ion. NeuCommand(cmdNumber TCmdNumber): TCommand; 

2 279 — VAR boxVieu: TBoxVieu; 

2 280 — heap: THeap; 

2 281 0- ft BEGIN 

2 282— {$1FC nrace)BP{ll); {SENDC) 

2 283 — 

2 284 — boxVieu ;- TBoxVieu(SELF. vieu); 

2 285 — heap : - SELF. Heap; 

2 286 — 

2 287 1- CASE cmdNumber OF 

2 288 — uUhite, uLtGray, uGray. uDkGray, uBl ack: 

2 289— NeuCommand : - TRecolorCmd. CREftTE(NlL, heap, cmdNumber, boxVieu, SELF, box, 

2 290 — cmdNumber - uUhite ♦ colorUhite); 

2 291 — 

2 292 — uDupl icate: 

2 293— NeuCoflinand : - TOupl icateCmd. CREftTE(NIL, heap, cmdNumber, boxVieu, SELF, box); 

2 294 — 

2 295 — OTHERWISE 

2 296— NeuConmand :- SUPERSELF. NeuCownandC cmdNumber}; 

2 297-1 END; 

2 298 — {$IFC fTrace)EP; {SENDCl 

2 299 -0 A END; 

2 SDO — 

2 501 — 

2 502 — ft FUNCTION TBoxSel ect ion CanDoCommandC cmdNumber TCmdNumber; VAR check It: BOOLEAN); BOOLEAN; 

2 503 0- A BEGIN 

2 504— {JIFC nrace}BPCll); {$ENDC) 

2 505 1- CASE cmdNumber OF 

2 506 — uUhite, uLtGray, uGray, uDkGray, uBlack, 

2 507 — uDupl icate: 

2 508 — CanDoCommand :■ SELF, kind c> nothingKlnd; 

2 509 — 

2 510 — OTHERWISE 

2 511 — CanOoCotnmand : ■ SUPERSELF. CanDoCommand( cmdNumber, check It); 

2 512 -1 END; 

2 513 — {SIFC nrace)EP; {SENDC} 

2 514 -0 A END; 

2 515 — 

2 516 — END; 

2 517 — 

2 518 — 

2 519 — rCTHOOS OF TCreateBoxSel ect ion; 

2 520 — 

2 321 -- A FUNCTION TCreateBoxSel ect ion. CREATE( object; TObject; itsHeap; THeap; itsVieu: TVieu; 

2 522 — itsAnchorLPt: LPoint): TCreateBoxSel ect ion; 

2 523 — VAR box: TBox; 

2 524 0- A BEGIN 

2 526— {JIFC fTrace}BP(ll);{JENDCl 

2 526 — IF object - NIL THEN 

2 527 — object : - NeuOb1ect( itsHeap, THISCLASS); « ^ , . . .^ .^ 

2 528— SELF :- TCreateBoxSel ect lon(TSel ect ion CREftTE(object, ItsHeap. itsVjeu, createBoxSelect ionKind, 

2 529 — ItsAnchorLPt)); 

2 550 — box :■ TBox. CREATEC NIL, SELF, heap); 

2 551 — SELF, box : • box; 

2 552 — {JIFC nr»ce)EP; {JENDC] 

2 553 -0 A END; 

2 53A — 

2 555 — {JIFC fDebugMethods) , , ^^r,.^^ 

2 536 — A PROCEDURE TCreateBoxSel ect ion. FieldsC PROCEDURE Field(nameAndType: S255)); 

2 557 0- A BEGIN 

2 538— TSel ect ioa F iel dsf F iel d) ; 

2 559— FieldCbox: TBox); 

2 540 -0 A END: 

2 541 — {JENDC} 

2 542 

2 543 — {This is called uhen the user moves the mouse after pressing the button} 

2 54A — A PROCEDURE TCreateBoxSel ect ioa ttousehove(mou$eLPt: LPoint); 

2 545 — VMR maxBoxLRect: LRect; 

2 546 — diffLPt; LPoint; 

2 547 — box Vieu: TBoxVieu; 

2 548 — box: TBox; 

2 549 — 

2 550 — B PROCEDURE DrauTheFrame; 

2 351 0- 6 BEGIN 

2 552 — box. DrauFrame; 

2 353 -0 B END; 

2 354 — 

2 555 0- A BEGIN ^ , 

2 556— {JIFC fTr»ce}BP{ 11); {JENDC} 
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r 












■~\ 


2 


557 


— 






boxVieu ;- TBoxVleu(SELF. vleu); 




2 


5S8 


— 






box : • SELF, box; 




2 


559 


— 










2 


560 


— 






{ In Boxer it is possible to drau a box greater than allowed by a 16 bit rectangle. These three 




2 


561 


-- 






lines force the rectangle to ulthin 16 bits. ) 




2 


562 


_- 




{$H-} 


WITH SELF. anchortPt DO 




2 


565 


— 






SetLRectfmaxBoxLRect, h»10-MAXINT, vlO-t»AXlNT, h-MAXlNT-10, vMAXlNT-10); 
LRectHaveLPt(mxBoxLRect, atouseLPt}; 




2 


564 


— 




IJN*] 




2 


565 


-- 










2 


566 


— 






LPthinusLPtCmouseLPt, SELF. currLPt. dlffLPt); 




2 


567 


-- 






IF NOT Equal LPt{diffLPt. zeroLPt) THEN 




2 


568 


1- 






BEGIN 




2 


569 


— 






SELF. currLPt : ■ leouseLPt; 




2 


570 


-- 










2 


571 


— . 






boxV leu. panel, OnAllPadsDo(DrauTheFrame); {erase old frame] 




2 


572 


-- 






WITH box DO 




2 


575 


2- 






BEGIN 




2 


574 


_» 






shapeLRect. topLeft :- SELF, anchorLPt; 




2 


575 


— 






shapeLRect. bot Right :- laouseLPt; 




2 


576 


-2 






END; 




2 


577 


-- 










2 


578 


— 




{$H-} RectifyLRBCt(box. shapeLRecl); {$H-] 




2 


579 


— 






box Vieu. panel. OnAl IPadsDo(DrauTheFraine); (drau neu frame] 




2 


580 


-1 






END; 




2 


581 








{$1FC nrace}EP; (SENDC] 




2 


582 


-0 


A 


END 






2 


585 


-- 










2 


584 


— 










2 


585 


-- 


A 


PROCEDURE TCrsateBoxSel ect Ion. houseRel ease; 




2 


586 


-- 




VAR 


thisBox: TBox; 




2 


587 


-- 






boxVieu: TBoxVieu; 




2 


588 


-- 






draunLRect: LRect; 




2 


589 


-- 






aSel ect ion: TSel ect ion; 




2 


590 


— 






panel : TPanel ; 




2 


591 


._ 










2 


592 


— 


B 




PROCEDURE DrauTheFrame; 




2 


595 


0- 


B 




BEGIN 




2 


594 


.. 






thisBox. DrauFrame; 




2 


595 


-0 


B 




END; 




2 


596 


-- 










2 


597 


0- 


A 


BEGIN 




2 


598 


— 






{$IFC nracelBP(ll): {SENDC} 
boxVieu :- TBoxVieu( SELF, vieu); 




2 


599 


-- 








2 


400 


-- 






panel :* boxVieu. panel; 




2 


401 


— 






thisBox :- SELF, box; 




2 


402 


— 






panel . OnAl 1 PadsDo( DrauTheFrame) ; 




2 


405 


.- 






draunLRect :■ thisBox. shapeLRect; 




2 


404 


-- 










2 


405 


-- 






{ Independant of whether ue threu the boxed auay or not ue must create an instance of TBoxSel ect ion 




2 


406 


-- 






to replace the nou useless instance of TCreateBoxSel ect ion using the kind set above. } 




2 


407 


— 






•Selection ;« SELF. FreedAndReplacebyf 

TBoxSel ect ion. CREATEC NIL, SELF, heap, boxVieu, thisBox, boxSelectionKind, 




2 


408 


-- 








2 


409 


— 






draunLRect. topi eft)); 




2 


410 


-- 










2 


411 


— 






box^/ieu. InvalBox( draunLRect); 




2 


412 


-- 










2 


415 


— 






(If the box is not big enough then throu it auay. otherwise put it in the 1 ist) 

IF (draunLRect. right - draunLRect. left <«4) OR (draunLRect. bottom - draunLRect. top <«4) THEN 




2 


414 


— 








2 


415 


1- 






BEGIN 




2 


416 


— 






aSel ect ion. kind : ■ nothingKind; 




2 


417 


-- 






thisBox. Free; 




2 


418 


-1 






END 




2 


419 


1- 






ELSE BEGIN 




2 


420 


— 






{ Coiwnit any outstanding conmand } 
SELF, window. Conn itLast; 




2 


421 


-- 








2 


422 


-- 










2 


425 


— 






boxVieu. boxL ist. In$Last{ thisBox); 




2 


424 


-1 






END; 




2 


425 


— 






{JIFC fT race) EP; {SENDC] 




2 


426 


-0 


A 


END 






2 


427 


-. 










2 


428 


— 




END; 






2 


429 


-- 










2 


450 


-- 










2 


451 


-- 










2 


452 


— 




METHODS 


OF TRecolorCmd; 




Z 


.455 


-- 










2 


454 


— 


A 


FUNCTION TRecolorCmd.CREATEC object: TObject; itsHeap: THeap; itsCmdNumber. TCtndNumber 




2 


455 


-- 






itsVieu: TBoxVieu; itsBox: TBox; itsColor. TColor); TRecolorCmd; 




2 


456 


0- 


A 


BEGIN 




2 


457 


— 






fSlFC fT race) BP{ 10), {SENDC} 
IF object ■ NIL THEN 

objact :« NeuObject( itsHeap, THISCLASS); 




2 


458 


— 








2 


459 


— 








2 


440 


— 






SELF :■ TRecolorCmd(TCoiwnand. CREATE( object, itsHeap, itsCmdNumber, itsVieu, TRUE, revealAll)); 




2 


441 


— 






SELF, color:- ItsColor, 




2 


442 


-- 






SELF, box ;• ItsBox; 




2 


445 


— 






{SIFC fTr»ce}EP; {SENDC] 




2 


444 


-0 


A 


END 






2 


445 


-- 










2 


446 


.. 




{$IFC fDebuQMethods) 

PROCEDURE TRecoIorCmd. Fields (PROCEDURE Field(nameAndType; S255)); 




2 


447 


— 


A 




2 


448 


0- 


A 


BEGIN 




2 


449 


— 






TCotnmand. FieldsC Field); 
F iel d( ' Col or. INTEGER' ) ; 
Fleld(box: TBox); 




2 


450 


-- 








2 


451 


-- 








2 


452 


-0 


A 


END 






2 


455 






(JENDC) 




2 


454 


-- 










2 


455 


■>. 










2 


456 


-- 


A 


PROCEDURE TRecolorCmd. Per formCcffidPhase: TCmdPhase); 




2 


457 


-- 




VAR 


boxVieu: TBoxVieu; 




2 


458 


— 






tempColor. TColor; 




2 


459 


-- 






box: TBox; 




2 


460 


0- 


A 


BEGIN 




2 


461 


-- 






{SIFC nrac»lBP( 12); (SENDC) 
boxVieu :- TBoxView(S£L^' Imge); 




2 


462 


-- 








2 


465 


-. 






box : - SELF, box; 




2 


464 


— 










2 


465 


1- 






CASE cudPhase OF 




2 


466 


__ 






undoPhase, redoPhase, doPhase: 


_J 



«x nM^ xsoi x^. jo; 'i'i U6B0XER. TEXT Pa^8 



2 


467 


2- 




BEGIN 


2 


468 


-- 




t»mpColor :« SELF, color, 
SELF, col or : ■ box. col or, 


2 


469 


-- 




2 


470 


-- 




box. color :- tmnpColor; 


2 


471 


— 




boxViau. InvaIBox(box. shapeLRect); 


2 


472 


-2 




END 


2 


475 


-1 




END (CASE); 


2 


474 


-- 






2 


475 


— 




self, image, vieu. panel, selection. HarkChanged; {allou this document to be saved} 


2 


476 


— 




{$IFC nrace)EP; {JENDC) 


2 


477 


-0 


A 


END; 


2 


478 


-- 






2 


479 


~ 




END; 


2 


480 


•- 






2 


481 


— 






2 


482 


-_ 






2 


483 


— 




HETHODS OF TDupl icateCmd; 


2 


484 


•— 






2 


48S 


— 


A 


FUNCTION TDupl icateCmd. CREATE( object: TObject; itsHeap: THeap; UsCmdNumber. TCmdNumber, 

ItsVieo. TBoxVieu; ItsBox: TBox); TOupl icateCmd; 


2 


486 


-- 




2 


487 


.- 




VAR box; TBox; 


2 


488 


0- 


A 


BEGIN 


2 


489 


— 




fSIFC nrace)BP(10);{$ENDC} 
IF object - NIL THEN 


2 


490 







2 


491 


— 




object :- NeuObjectf ItsHeap, THISCLASS); 
SELF :- TDupl icateCmd(TCommand.CREATE( object. itsHeap, ItsCmdNumber, itsUieu, TRUE, reveal All)); 


2 


492 


— 




2 


493 


-- 






2 


494 


-- 




SELF. oldBox :- ItsBox; 


2 


495 


.- 




box :- TBoxfitsBox. Clone(SELF, heap)); 
{$H-) OffSetLRect(box. shapeLRect, 20, 20); {$H-] 


2 


496 


— 




2 


497 


-- 




SELF. neuBox : • box; 


2 


498 


— 




{SIFC n race) EP; {JENDC} 


2 


499 


-0 


A 


END; 


2 


soo 


— 






2 


501 


-- 






2 


502 


-- 


A 


PROCEDURE TDupl icateCmd. Free; 


2 


503 


0- 


A 


BEGIN 


2 


504 


— 




$IFC fTrace}BP(10);£$ENDC} 
IF NOT SELF, doing THEN 
FreeCSELF. neuBox); 


2 


505 


— 




2 


506 


— 




2 


507 


-- 




SELF. FreeObject; 


2 


508 


— 




{JIFC n race} EP; {JENDC} 


2 


509 


-0 


A 


END; 


2 


510 


— 






2 


511 


— 






2 


512 


-- 




{JIFC fOebugMethods} 

PROCEDURE TDupl icateCmd. F lei ds( PROCEDURE Field(nameAr)dType: S255)); 


2 


513 


-- 


A 


2 


514 


0- 


A 


BEGIN 


2 


515 


— 




TCommand. F iel ds( F iel d) ; 
FieldC OldBox: TBox); 
Field("neuBox: TBox'); 


2 


516 


-- 




2 


517 


-- 




2 


518 


-0 


A 


END; 


2 


519 






{JENDc) 


2 


520 


-- 






2 


521 


~ 






2 


522 


— 


A 


PROCEDURE TDupl icateCmd. Perform(cmdPhase: TCmdPhase); 


2 


523 


-- 




VAR boxVleu: TBoxWieu; 


2 


524 


.- 




box: TBox: 


2 


525 


— 




thisSelectlon: TBoxSel ect ion; 


2 


526 


0- 


A 


BEGIN 


2 


527 


— 




{JIFC nrace}BP(12);{JENDC) 

boxVieu :- TBox Vieu( SELF, image); 

th isSel ect ion :> TBoxSel ect ionCboxVieu. panel, select ion); 


2 


528 


-- 




2 


529 


— 




2 
2 
2 


530 
551 
532 


— 




f ______________________^______________________________________________________ 


__ 




The current selection is unhighl ighted before performing the command as the result 


2 


555 


__ 




of the following command fields set by TCommand. CREATE: 


2 


554 


— 




unHil iteBefore[doPhase. . redoPhase] <- TRUE 


2 


555 


— 






2 


536 


-- 




The resulting selection is hlghl ighted after performing the command as the result of the 


2 


537 


__ 




following command fields set by TCommand. CREATE: 


2 
2 

2 


558 
559 

540 


~ 




hiLiteAfter { doPhase. . redoPhase) <- TRUE 

___________ — ___________ — _______________________________ — _____________ — __ _-_ J 


__ 






2 


541 


1- 




CASE cmdPhase OF 


2 


542 


— 




doPhase, redoPhase: 


2 


545 


2- 




BEGIN 


2 


544 


__ 




thisSelect ion. box ;« SELF. neuBox; 


2 


545 


— 




boxVieu. boxList. lnsLast(SELF. neuBox); 


2 


546 


-2 




END; 


2 


547 


-- 






2 


548 


-- 




undoPhase: 


2 


549 


2- 




BEGIN 


2 


550 






boxVieu. boxList. Del La$t( FALSE): 


2 


551 


— 




WITH thisSelect ion DO 


2 


552 


— 




box : ■ SELF, ol dBox; 


2 


555 


-2 




END; 


2 


554 


-1 




END {CASE}; 


2 


555 


-. 






2 


556 


-. 




boxVieu. InvalBox( SELF. neuBox. ShapeLRect); 


2 


557 


__ 






2 


556 


.- 




self, image, vieu. panel, select ioa Ha rkChanged; {allou this document to be saved} 
{JIFC fr race} EP; {JENDC} 


2 


559 


— 




2 


560 


-0 


A 


END; 


2 


561 


~ 






2 


562 


— 




END; 


2 


563 


-- 






2 


564 


.. 






2 


565 


-- 






2 


566 


-. 




METHODS OF TBoxProcess; 


2 


567 


— 






2 


568 


-. 


A 


FUNCT ION TBoxProcess. CREATE: TBoxProcess; 


2 


569 


0- 


A 


BEGIN 


2 
2 


570 
571 


:: 




SELF^. TBoSrocess(tProcess.CREATE(NeuObject(«alnHeap, THISCLASS), mainHeap)); 


2 


572 


— 




{JIFC rr race} EP; {JENDC} 


2 


575 


-0 


A 


END; 


2 


574 


— 






2 


575 


• • 






2 


576 


~ 


A 


FUNCTION TBoxProcess. NeuDocManager( vol umePrefix: TFilePath; openAsTool: BOOLEAN): TDocManager, 
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2 577 0- A BEGIN 

2 578 — fJiFC nnice}BP(ll);{$ENDC) 

2 579— NeuDocManager : • TBoxDocriana0er, CREATE(NIL, MlnHeap, volumePref ix); 

2 580— {$IFC nr»ce}EP;{$ENDC) 

2 581 -0 A END; 

2 582 — 

2 585 — END; 

2 584 — 

2 585 — 

2 586 — 

2 587 — hETHODS OF TBoxDocManaoer, 

2 588 — 

2 589 — A FUNCTION TBoxDocManaeer. CREATE( object: TObject; itsHeap: THeap; itsPathPref ix: TFilePath) 

2 590 — : TBoxDocflanager. 

2 591 0- A BEGIN 

2 592— fSIFC nr»ce)BP(ll);{$£NDC} 

2 593 — IF object -NIL THEN 

2 594— object :• N«uObjectf it sHeap, THISCLASSJ; 

2 595— SELF :- TBoxDocManasertTDocManager. CREATEl object, itsHeap, ItsPathPref ix)); 

2 596— {$IFC rTr*ce]EP;{$ENOC] 

2 597 -0 A END; 

2 598 — 

2 599 — 

2 600 — A FUNCTION TBoxDocHanager. NeuliJindou(heap: THeap; wmgrlD: TUindouIO): TUIindou; 

2 601 0- A BEGIN 

2 602— {JIFC nnicelBP(ll);{$ENDC] 

2 603— Neuklindou ; > TBoxUindou. CR£ATE(NIL, heap, ungrlD); 

2 604— {$IFC nrace]£P;{$ENDC) 

2 605 -0 A END; 

2 606 — 

2 607 — END; 

2 608 — 

2 609 — 

2 610 — 

2 611 — HETHODS OF TBoxUindou; 

2 612 — 

2 615 — A FUNCTION TBoxWindou, CREATE( object: TObject; itsHeap: THeap; itsUn^rlD: TWindouID): TBoxUindou; 

2 614 0- A BEGIN 

2 615 — fJIFC fTrace)BP(lO); {$ENDC) 

2 616 — IF object - NIL THEN 

2 617— object :- NeuOblBCt( itsHeap, THISCLASS); 

2 618— SELF ;- TBoxUindoufTUindou, CREATEC object, itsHeap, itsUmgrlD. TRUE)); 

2 619— {JIFC fTrace}EP;{$£NDCj 

2 620 -0 A END; 

2 621 — 

2 622 — 

2 623 — A PROCEDURE TBoxWindou. BlankSt at ionery; 

2 624— WAR vieuLRect: LRect; 

2 625 — panel: TPanel ; 

2 626 — boxVieu: TBoxVieu; 

2 627 — aSelection: TSelection; 

2 628 0- A BEGIN 

2 629— {$1FC nrace}BP(lD);{$ENDC) 

2 630— panel :• TPanel. CREATE( NIL, SELF. Heap, SELF, 0, 0, [aScroll, aSpl it] , [aScroll. aSplit]); 

2 651 — 

2 632 — SetLRect{ VieuLRect, 0, 0. 5000, 3000); 

2 633— boxVieu : - TBoxVieu. CREATE(NIL, SELF. Heap, panel, vieuLRect); 

2 634— boxVieu. In itBoxList( SELF. Heap); 

2 635 — 

2 636 — CSIFC nrace)EP; {JENDC) 

2 637 -0 A END; 

2 638 — 

2 639 — 

2 640 — A PROCEDURE TBoxUindou. CI earAll; 

2 641 — VAR boxVieu: TBoxUieu; 

2 642 — panel: Tpanel; 

2 643 — box: TBox; 

2 644 — $: TListScanner, 

2 645 — «Sel ect ion; TSel ect ion; 

2 646 0- A BEGIN 

2 647— {$1FC rrr»ce}BP(10);{$ENDCj 

2 648 — 

2 649 — panel : » SELF, sel ectPanel ; 

2 650 — boxVieu :■ TBoxV ieu( panel, vieu); 

2 651 — 

2 652 — $ :■ boxVieu. boxList. scanner; 

2 653 — IWILE s, Sc«n(box) DO 

2 654 — $. Del ete( TRUE); 

2 655 -- aSelection ;> panel, select ion. FreedAndRepl aceby( boxVieu. NoSel ect ion); 

2 656— panel. Inval idate; 

2 657— {JIFC n race} EP;{$ENDC) 

2 658 -0 A END; 

2 659 — 

2 660 — 

2 661 — A FUNCTION TBoxUindou. NeuCommand(cindNuinber TCiadNuniber): TComnand; 

2 662 0- A BEGIN 

2 663— {JIFC n race) BP( 11); {JENDC) 

2 664 — 

2 665 1- CASE cmdNufflber OF 

2 666 — uCl earAll: 

2 667 — f put up an alert saying that this uill not be undoable } 

2 668 — IF process, caut ion(cantUndo) THEN 

2 669 2- BEGIN 

2 670— NeuCoiwrand : - TCommand. CREATE{N1L, SELF, heap, cmdNumber, SELF, sel ectPanel. vieu, 

2 671 — FALSE, reveal None); 

2 672 — SELF. CI earAll; 

2 673 -2 END; 

2 674 — 

2 675 — OTHERWISE 

2 676— NeuComand :- SUPERSELF. NeuConmand(cffldNufflber); 

2 677-1 END; 

2 678— {JIFC fTrace}EP; {JENDC) 

2 679 -0 A END; 

2 680 — 

2 681 — 

2 682 — A FUNCTION TBoxUindou. C»nDoCo«mand(ciiidNui«ber T CmdNumber, VAR check It: BOOLEAN): BOOLEAN; 

2 683 0- A BEGIN 

2 684— (JIFC n race) BP( 11); {JENDC] 

2 685 1- CASE cmdNumber OF 

2 686 — uCl earAll: 



i.x nwy X301 x^:; Jo: hh UbtKJJihK. ItXT Page ID 

, - - ,^ 

2 687 2- BEGIN 

2 688 -- CanDoCoinmand : • TRUE; 

2 689 -2 END; 

2 690 — OTHERWISE , 

2 691 — CanDoCofflmand :■ SUPERSELF. CanDoCommandCcmdNuniber, check It); 

2 692 -1 END; 

2 695 — {$IFC fTrace)EP; {JENDC} 

2 694 -0 A END; 

2 695 — 

2 696 — END; 

2 697 — 

1 195 — 

1 196 — END. 
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uDkGray 55*( 1) 288 ( 2) 506 { 2) 

UOrau 17»{ 1) 

uOupl icate 57*( 1) 292 ( 2) 507 ( 2) 

IFont 15»{ 1) 

uGray 54*( 1) 288 ( 2) 506 ( 2) 

uLtGray 55»( 1) 288 ( 2) 506 ( 2) 

UObject 10*( l) 
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[Segment 10] 

Filters 

Purpose of this segment: 

1. To introduce filters and filtered connmands. 

2. To reinnplement recolordxvi dupf/cateXo utilize filters. 

3. To nnake c/?<3r^// an undoable connmand using filters. 

How to use this segment: 

This is the tenth segment in the self— paced introduction to the Toolkit. This 
segment follows the segment on commands, and precedes the segment on advanced 
commands with cut & paste. 

This segment presents a way to undo commands that make major changes to a 
document. This undo strategy is based upon the concept of filters. 



INTRODUCTION TO FILTERS 

When implementing undo there are two basic strategies. The first we used in 
the previous segment - let the command save the information necessary to 
restore the document before changing It. 

It Is easy to imagine cases where this strategy is too complicated to 
implement or where it requires too much space. For instance, to undo a shade 
command in LisaDraw you must remember the original color of every box that was 
affected by the command. To undo a cut in LisaDraw you must remember the 
objects themselves, their positions in the list, and any relation they have with other 
objects in the document. 

Whenever the size or the complexity of the information necessary to restore 
the document becomes unreasonable there is a second undo strategy available. The 
second undo strategy involves a concept called a f/7ter. 

Filters provide a way to change the display of a document without making any 
changes to the document's data. 

There are basically two types of filters: transparencies Br\6 s/eves: The 
following scenarios illustrate the two types. 
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transparencies 

Perd Berfel is trying to design a house. He has a blueprint and wants to try 
out different changes to the blueprint without a damaging it. He lays a 
transparency, with the changes he is considering on it over the blueprint. Then, 
when he views the blueprint through the transparency, he sees the blueprint as if the 
change were actually made. What he is seeing is the kv/'/'^j/ blueprint. The actual 
blueprint has not been changed. 

The transparency with its additions is the filter through which the blueprint is 
perceived. In Boxer, the blueprint would be the document's view object. The view, 
of course, is displayed through the window. The virtual view is the actual view plus 
the changes made by the command. 

Transparencies are used by commands, such as* duplicate, that add boxes to the 
display. 

To undo a change, the document's window is updated with the filter removed. 
To redo a change, the window is updated with the filter reinstated. When Ferd is 
satisfied with a change, he commits the change to the blueprint. 

sieves 

Ferd Berfel is now trying to modify the recipe of the pie baked by a 
pie-making machine. The pie-making machine has various compartments, each 
holding a single ingredient (such as flour, butter, pecans, etc.). To make the pie, the 
machine measures out, in sequence, appropriate quantities of each ingredient in the 
recipe. During the process various ingredients are mixed together and layered into a 
pie pan. Finally the pie is baked. 

Ferd Berfel decides that pecans are not needed for this pie; so he blocks the 
hole to the compartment holding the pecans. None the wiser, the pie-making 
machine proceeds to make another pie. The pie pops out of the oven without pecans. 

The recipe for the pie without pecans is a virtual recipe. The actual recipe 
uses all of the original ingredients in the compartments of the machine. Blocking 
the compartment is like using a sieve to filter out that ingredient. Effectively, Ferd 
used a sieve to filter out the pecans. Just as easily Ferd's sieve could have filtered 
out the pecans and inserted peanuts instead; thus producing a different virtual recipe. 

The sieve Is the filter through which the ingredients in the recipe are 
delivered to the pie. The pie is like a document's display; the recipe is the analogue 
of the document's view; the ingredients are like the objects in the view. The display 
(the pie) ^\ the virtual view (the virtual recipe) m^'i exclude some of the objects 
(the ingredients) \T\ the actual view (the actual recipe) 

In Boxer, sieves are used by commands that modify a box (eg. recolor) or 
remove it from the display. 

When Ferd is satisfied with his virtual pie, he commits the change to the 
recipe by replacing the contents of the pecan compartment (either with nothing or 
with peanuts). 
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Virtual and Actual Parts 

Any document can be broken down into its connponent parts. The document 
can be enumerated by listing ail of those parts. But a distinction must be made 
between the parts actually in the document and those added, modified, or removed by 
the filter. 

The parts actually in the document are called actual parts. Those passed 
through by the filter are called virtua/ parts. Virtual parts become actual parts 
when they are committed to the document. 

In Ferd Berfel's pie making machine the ingredients are components of the 
recipe. Those that are currently in the compartments are the actual ingredients 
Those that end up in the pie due to the filtering action of the sieve are the virtual 
ingredients. When Ferd replaces the contents of the^blocked compartment with the 
ingredient (or lack thereof) supplied by the sieve, he is committing the change. He 
no longer needs the sieve. 

filtering in applications 

Once an application has been structured to support filtering, any 
application-defined command can use filters, though none is required to. 

Filtering is something your application never needs to worry about. The 
Generic Application makes sure that filtering only occurs during the doPhasedx\6 the 
redoPhase The filter is turned off during the undoPhase, When the command is - 
committed, the changes induced by the filter are made permanent in the document. 

Note: Many editing commands are more easily Implemented without filters. It Is 
not the purpose of this segment to suggest that all commands should he use filters. 
Just keep In mind that for many commands. It Is easier and more efficient to use 
them. 



STRUCTURING APPLICATIONS TO USE FILTERS 

Filtering can occur whenever the document, typically its view (or window), is 
enumerating its parts. Drawing is a prime example of this. In Boxer, for example, 
the application enumerates the objects in the document by stepping through the 
view's boxList. To draw, the view has each of its objects draw themselves. Drawing 
can be easily restructured for filtering. 

Up until now our viev»« have always implictly drawn their actual parts. To 
support filters, ways must be explicitly established to draw both the actual parts of 
the view and Its virtual parts. 

the actual parts of the view 

Defining an EachActualPart method to enumerate the actual parts of the 
view is the first step. The sample boxView method below enumerates the parts (the 
boxes) of the view: 

PROCEDURE {TBoxView.) EacftActualPsrK (PROCEDURE Do7oODject(ot>j: TObject))); 
BEGIN 

<SELP refers to the boxview) 
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{The follouing line supplies each box in the boxList as the sole paranetei to 
the pioceduie - OoToObject) 
SELf .boxList. Each(OoToOl>ject); 

{view.}EachActualPart performs some action upon each of the enumerated 
objects. The complementary method, {view,}EachVirtualPart Is the entry to the 
filter mechanism. This method, defined by the ToolKit, is rarely redefined by the 
application, 

filters at the command tevel 

It is only natural that the command does the Sctual filtering. The second step 
in supporting filters is defining the method of filtering for each command. 

Each command class that implements filters must define one of two methods: 
EaohVlrtualPart or FilterAndDo. 

{command.}EachVirtualPart is most often used to implement 
transparency-type filters. Code for the (7i:^//^«?ff command's EachVirtualPart 
method is listed below: 

(This Mthod adds the duplicate box as a virtual part. 
The duplicate box is lefeied to by SELF.ne»6ox} 
PROCEDURE (TOuplicateCwd. }EachVirtualPait{(PROCEOURE DoToObject(f ilteredObj: TOb ject)»; 
BEGIN 

{This is a transpaiency-type filter) 

{First peifoiw the action. OoToObject, upon the actual parts of the view} 
SELF . iwge . EachftctualPar t(OoToOb ject) ; 

{Next, pcrforn the action on the part to be added} 
OoToObject (SELF. ne«Oox) ; 
END; 

{command.)f liter AndDo Is typically used to Implement sieve-type filters. 
Code for the r^(?(7/^r command's FilterAndDo method is listed below: 

{This nethod recolors the selected box. 
The selected box is referred to by SELF. box} 
PROCEDURE {TRecolorCiid.}FilterAndDo{(actualObj: TObject; 

PROCEDURE DoToObject<filteredObj: TOb ject))}; 
VAR tenpcolor: TColor; 

box. TBox; 
BEGIN 

{This is a sieve- type filter} 

box -.- TBox(actualObj); {coerce the actual part to be a box} 

{Check the box to see if it is the one to be modified (or filtered out)} 
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{If it is t^e box to t)c wdificd, then substitute « new color) 
IF box = SELF, box THEM 
OEGIN 

tenpColoi :- SELF. box. color; {s«ve the box's origiMl actual color} 
SELF.box.colOr:* SELF. color; {replace the box's color, «ith the virtual color} 
OoToObject(SELF.box); {draw the box with the virtual color} 
SELF. box. color :- te^olor; {restore the box's actual color} 
END 
{Otherwise pass the box through unchaoged} 
ELSE 

0oTo0bject<box); 
END; 

Code for a hypothetical ^^/ef^ command's FllterAndDo method is listed below: 

{This nethod deletes the selected box} 
PROCEDURE {TDeleteCud. Kilter AndOo{(actualObj: TObject; 

PROCEDURE DoToObject(f ilteredObj: TObject))}; 
VAR box. TBox; 
BEGIif 

{This is a sieve-type filter) 

box := Tdox(actualObj); {coerce the actual part to be a box) 

{Check the box to see if it is the one to be filtered out (or m>difie(f)} 
{If it is the box to be filtered out, then do not pass it through) 
IF box <> SELF. box THEM 
DoToObject(box); 
END; 



ACCESSING A VIRTUAL DOCUMENT 

Accessing a virtual document is very different from accessing a document's 
actual parts. The main reason is that the view has no idea what the virtual parts 
are. Only the current filtering command knows which parts are in the virtual 
document. 

Take drawing boxes for example. The code below only accesses the actual 
boxes in a Boxer document: 

{version of Draw that draws the actual parts only) 
PROCEDURE {T8oxView.)Oraw; 

PROCEDURE Draweox<obi: TObject); 

BEGIN 

TBOX (obj). Draw; 
END; 
BEGIN 
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SELF.l)oxList.Each(0r8«Box); {equivalent to: SELF. E8chActualPait(0iawBox) } 
EMD; 

Whereas the following code is needed to access the boxes in a virtual Boxer 
document: 

{version of Draw that draws the virtual parts) 
PROCEDURE {TBoxView. )Oim: 

PROCEDURE Drai«ox(obj: TObject); 

BEGIN 

TBox(obj).Dra«; 

END; 
BEGIN 

SELF . E8cnvirtuaiP8rt(0ra«Box); 

END; 

Note: When filtering is not active the virtual document is the same as the actual 
document. 

If your application only needs to operate upon a specific object in the virtual 
document there Is a special method for that - FilterAndDo. 

{view}.FIIterAndDo is a single object filter routine. It performs some action- 
on a specified object once it has been passed through the active filter. 

Whenever you want to access the virtual document you must now call 
EachVlrtualPart or FilterAndDo and pass in a DoToObject procedure parameter. 
The key points to remember with procedure parameters are: 

1. The procedure passed usually is local to the method that Initially passes it. 

2. The parameter inside that procedure is of type TObject and must be 
coerced to be used. 

filtering flow of control 

EachVlrtualPart passes the document's parts through the current filter, 
according to the following flow of control: 

view.EachVlrtualPart v DrawProc {Timage.} 

window.FilterDispatch v DrawProc {TWindow.} 

-> command.EachVlrtualPart v DrawProc {*} 

If the current command has overridden EachVlrtualPart (providing 
transparency- type filtering), then the flow of control stops here. Otherwise it 
proceeds as follows: 

command.EachVlrtualPart. v DrawProc {T Command.} 

{ FilteredOrawProc: SELF.FilterftndOo(actualObj, Dra«Proc) } 



10-6 



view.EachActualPart v Filter edOrawProc {TBoxVlew.} 

boxList.Each v FilteredDrawProc {TLinkListJ 
<foi each box in the box list) 

-> command.Fi Iter AndDo V box v DrawProc {*} 



This results in sieve- type filtering if the current connnnand has overridden 
FilterAndDo. Otherwise the actual parts are passed, unchanged, to DoToObj. 



If the current filter is not active (the phase is imctoPhase), the flow of 
control is as follows: 

view.EachVirtualPart v DrawProc {Tlnrtage.} 

window.FilterDispatch ¥ DrawProc {TWindow.} 

View.EachActualPart v DrawProc {TBoxView.} 



sunnnnarv of virtual docunr^ent access methods 

(window and view) 

The virtual dbcunnent access methods in the view and the ones in the window 
are equivalent. Two sets are provided for convienence. Use the methods of the view 
when your view controls your data, and the methods of window when your window 
controls the data. 

These methods are summarized below: 

PROCEOURt <TWindo«.HachActu«lPart(PROCEDURE DoToObject(filtcrc<Wbj: TObject)); OCfftULT; 
PROCEDURE {TI«aoe.H«chActu«lP«rt<PROCEOURE OoToObject(filteredObj: TObject)); OEFAULT; 

EachActualPart enumerates the actual parts of the document passing each 
part to the procedure DoToObject. This must be overridden by the 
application. 

PROCEDURE {TWindow. >EdchVirtu3lPart(PR0CEDURE DoToObject(filtercdObj: TObject)); DEFAULT; 
PROCEDURE {TiMOe. >EdChVirtlialPart(PROCEDURE DoToObject (filteredObj: TObject)); DEFAULT; 

EachVirtualPart, via the active filter, enumerates ail the virtual parts of 
the document, passing each part to DoToObject. When no filter is active, 
only the actual parts are passed to DoToObject. This method should not be 
reimplemented. 

PROCEDURE {T«indo«.)FiiterAndDo<actualObj: TObject; PROCEDURE DoToObject(filteredObj: TObject)); 

PROCEDURE <TIWQe.)FilterAn(IDo(actualObj: TObject; PROCEDURE OoToObject(filteiedObj: TObject)); 
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FilterAndDo should also never be re implemented. It takes a part and the 
DoToObject procedure parameter and passes them to any active filter. If 
no filter Is active, it passes the part directly to DoToObject. 

Outside of specifying an EachActualPart method for the view, the bulk of the 
implementation rest^ with the command classes. 

command filter methods 

In addition to implementing two new methods, FilterAndDo and 
EachVirtualPart, we need to modify the function of Perform and Commit. 

PROCEDURE (TCoAMnd. > EachVirtualPartCPWX^ElMtE DoToObject(fiUere<KX^ TObject)); 

EachVirtualPart passes each actual paft of the view (or window) to 
DoToObject; then passes any parts added by the command (the virtual 
parts) to DoToObject as well. 

PROCEDURE {TConwnd.} FiltcrArK»o(actu«i«)j: TObject; 

PROCEDURE ooToot)ject(fiitered(M)j: TODject)); 

FilterAndDo passes only those actual parts of the view (or window) to 
DoToObject that are not affected by the command. The part or parts 
that are operated on by the command, may either be filtered out or 
modified. 

PROCEDURE {TCoi«and.>Peifoin(c«dPhasc. TCudPhase); OEFftULT; 

Perform typically does very little now. On each of the command 
phases any document state information that was not saved by the 
CREATE must be saved; and the screen area that needs to be updated 
should be invalidated. 

PROCEDURE {TCoiwarKl. } Coiwit; 

Commit performs the actual changes to the document. 



IMPLEMENTATION 

We modify the previous stage of Boxer, 5Boxer, to implement filtered 
recolor, duplicate y(\^ clear all ^^xt\xu^x\^. 

user interface 

The user interface for this stage of Boxer, 7Boxer, has changed in only one 
respect- the ^/P(?/' <?// command is now undoable. 
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Implementation of Filtered Ckmticate 

To modify the implementation of duplicate Xo support filtering, we need to add or 
modify the following methods: 

{TDupllcateCmd.JCREATE 

CREATE must commit the last command before duplicating. This, for 
example, insures that the duplicate of a box which has just been recolored 
will have that box's new color and not Its old color, 

{TDuplicateCmd,)Perform 

Perform is now very simple. The doPhase^m^ redoPhase^x^ equivalent; 
and merely reset the selection to the duplicate. The undoPha$ex^%^\% the 
selection to the original box. All phases invalidate the newly selected box. 

{TDupllcateCmd.}EachVirtualPart 

EachVirtualPart passes to DoToObject ail the actual boxes of the 
document. It does this by calling: view.EachAcutalPart(DoToObject). 
Next it passes the duplicate box by calling: DoToObject(SELF.newBox). 

{TDuplicateCmd.}Commit 

Commit now has the honor of inserting the duplicate box into the view's - 
boxList. 



Since duplicate does not change any actual box, we do not need to reimplement 
FilterAndDo. 



Implementation of Filtered Recolor 

To modify the implementation of recolor Xx^ support filtering, we need to add or 
modify the following methods: 

{TReco I or Cmd.}Per f or m 

Perform simply invalidates the selected box to force a redraw. 

{TRecolorCmd.}FilterAndDo 

If the box passed to FilterAndDo Is the selected box, its color is changed 
before being passed to DoToObject, then restored when DoToObject 
completes. 

{TRecolorCmd.JCommit 

Commit now has the honor of changing the box's color. 

Since recolor ^o^ not add any boxes, we do not need to implement 
EachVirtualPart. 
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Implementation of Filtered Clear At i 

To modify the implementation of clear all X^ be undoable and support filtering, we 
need to add or modify the following methods: 

{TCIearAll.}CREATE 

Creates a clear «?// command object. Sets its kind field to the kind of the 
current selection. 

{TCIearAll.}Perform 

Resets the selection's kind to nothingKind on the doPhase^xs^ redoPhase. 
Resets it to SELF.kind on the undoPhase. J\\\ phases invalidate the panel. 

{TCIearAII.}EachVirtualPart 

EachVirtualPart does nothing; since no boxes are in the virtual document. 
{TCIearAII.}Commlt 

Commit deletes all the boxes in the view. 

Since clear all^Q^% not modify any actual box, we do not need to reimplement 
Pi IterAndDo. Note: Clear All does delete actual boxes, but It is a blanket 
operation rather than one applied to selected boxes. 

Implementation Summary 

The actual implementation for 7Boxer is summarized below. The code for 
6Boxer is used as the base for all changes. 

New Classes 

[TCIeaiAllCnd] 

FUNCTION {TClearAllC«d.)CREATE (Object: TObject; itsHeap: THeap; 

ItsCndNuRber: TCwMuRber: itsVieu: TBoxView) 
•. TCicaiAiicud; 

PROCEDURE (TClcaiAUCud.Konnit; OVERRIDE; 

PROCEDURE {TCleOTAUCnd.)feifoiH; OVERRIDE; 

PROCEDURE (TCleaTAiicnd.>CichVirtuilPiit(PROCEOURE DoToObject(filteredObj. TObject)); 

New Methods (for existing classes) 

[TBoxvieti] 

PROCEDURE (TBoxvieu.HichActiiilPiit(PROCEDURE OoToObject(filteiedObj: TObject)); 
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OVERRIDE; 

{TBoxView.}EachActualPart passes each box jn the view's 
boxList to DoToObject, It calls: 
SELF.boxList.Each(DoToObject). 

[TDuplictteCiid] 

PROCEDURE {7Dopllcatec«d. >EachVlrtu«lP8rt (PROCEDURE DoToot)ject(flitcrcdOi>j: TObject)); 

OVERRIDE; 
PROCEDURE {TDuplicatcCwJ. >C0Wlit; OVERRIDE; 

[TRecoiorCM] 

PROCEDURE (TRecolorCwJ. H iiterAndOo(actMlObj: jODject; 

PROCEDURE OoToOt)ject(filtcredObj: TObject)); 

OVERRIDE; 
PROCEDURE {TRecolorCmJ. )C0llllit; OVERRIDE; 



Modified Methods 

[TBOXHifMlOV] 

PROCEDURE {TdOX«lM}0U.)«eitCOMIind; OVERRIDE; 

{TBoxWindow.)NewCommand now creates a clear <?// command 
in response to a clear <y//menu event. 

[TOuplicateCnd] 

PROCEDURE {TDuplic8teCnd.>PerforR(c«dPn«sc. TCudPhase); OVERRIDE; 

[TRecolorCntf] 

PROCEDURE {TRecolorCwl. )ferfom(c»dPnase: TCwJPhase); OVERRIDE; 

Deleted Method 

[TBoxttiiMkHi] 

PROCEDURE {TdoxyindOM.KletlAll; 
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PROGRAM M7Boxer, 

USES 

{$U UObject ) UObject. 

{$IFC 1 Ibraryyersion <- 20) 

f$U UFoni} UFont. 

{$£NDC} 



[$U OuickDrau 
SU UDrau 
$U UABC 



OuickDrau, 

UDrau, 

UABC, 



($U U7Boxer } U7Boxer; 
CONST 

phrasfVersion - 1; 

BEGIN 

process : ■ TBoxProcess. CREATE; 
process. ConnenceCphraseVersion}; 
process. Run; 
process. Complete( TRUE); 

END. 
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I Copyright 1985, Apple Conputer Inc.) 



{ This segment of the LisaBoxer sample program implements Filtered Undo] 
I Copyright y - ■ 

{$E WRORS, TEXT) 

UNIT U7Boxer; 

INTEBFACE 

USES 



{$U UObjBCt) 



UObject, 



{$1FC 1 ibraryVersion <• 20) 



{$U UFont) 
{SENDC) 



$U OuickDrau) 
$U UDrau} 
SU UABC) 



CONST 

colorUhite - 1; 
col ortt Gray • 2; 
col orGray ■ 5; 
col orDkGray • 4; 
col orBl ack ■ 5; 

{ select ion kinds ) 
boxSelect ionKind ■ 1; 
createBoxSel ect ionKind 

{ Menus ) 
uUhite - 1006; 
uLtGray - 1007; 
uGray ■ 1008; 
uDkGray * 1009; 
uBIack - 1010; 
uDupl icate ■ 1011; 
uClearAll - 1012; 



UFont, 



OuickOrau, 

UDrau, 

UABC; 



TYPE 



TColor > coIorUhite. . coIorBlack; {color of a box) 

{Neu Classes for this Appl ication) 
TBox - SUBCLASS OF TObject 



{(.Variables) 
shapeLRect: 
color. 



LRect; 
TCol or. 



{Creation/Destruction] 

FUNCT ION TBox. CREATE{ ob ject : 

{ Highlighting support ) 

PROCEDURE TBox. PaintHandles; 

{ Framing uhile creating } 
PROCEDURE TBox. DrauFrame; 

{Display) 

PROCEDURE TBox, Draw; 

END; 



TBoxVieu • SUBCLASS OF TVieu 



TObject; itsHeap: THeap): TBox; 



{Variables) 
boxList: 



TList; 



{Creation/Destruction) 

FUNCTION TBoxVieu. CREATECobject: TObject; itsHeap; THeap; itsPanel: TPanel ; itsExtent; LRecl) 

: TBoxUieu; 

FUNCTION TBexVieu, BoxUith(LPt: LPoint): TBox; 

{ Inv/al idat ion) 

PROCEDURE TBoxVieu. lnvalBox( inval LRect: LRect); 

PROCEDURE TBoxVieu.HousePressCmouseLPt: LPoint); OVERRIDE; 

{Display) 
PROCEDURE TBoxVicu. Drau; OVERRIDE: 

PROCEDUR^ TBoxVleu. EachActualPart(PROCEDURE DoToObject(filteredObj: TObject)); OVERRIDE; 

{Initialization) , 

PROCEDURE TBoxVieu. InitBoxList( itsHeap: THeap); 
FUNCT ION TBoxV ieu. NoSel ect ion: TSel ect ion; OVERR IDE; 
END; 

TBoxSel ect ion • SUBCLASS OF TSel ect ion 

(Variables) 
box: TBox; 



{Great ion/Destruct ion) 

FUNCTION TBoxSel ect ion. CREATE( object: TObject; itsHeap: THeap; itsVieu: 

itsKind: INTEGER; itsAnchorLPt: LPoint): 

{Orauing - per pad) 

PROCEDURE TBoxSel ect ion. Highl ight(higtiTr«ns it; THighTransit); OVERRIDE; 

{Selection - per pad) , ^^„.^. 

PROCEDURE TBoxSel ect ion. MouseMove( mouseLPt: LPoint) ; OVERR IDE; 
PROCEDURE TBoxSel ect ion nouseRel ease; OVERRIDE; 

{Command Dispatch) 



TVieu; itsBox: TBox; 
TBoxSel ect ion; 
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111 — FUNCTION TBoxS«Iect ion. NeuCoinm»nd(cmdNumber TCmdNumber): TCommand; OVERRIDE; 

112— FUNCTION TBoxSbI eel ion. C*nDoCoinmand(c«dNun*)er. TCmdNutnber. VAR check It: BOOLEAN) 

115 — : BOOLEAN; OVERRIDE; 

114 ~ END; 

115 — 

116 — 

117 — TCreateBoxSelection - SUBCLASS OF TSelectlon 

118 — 

119 -- {Variables} 

120 — box: TBox; 

121 — 

122 — {Great ion/Dest rtjct ion) 

125— FUNCTION TCreateBoxSel ect ion. CREATE(ob iect: TObject; itsHeap: THeap; ilsVleu: TVieu; 

124— ItsAnchorLPt: LPoint): TCreateBoxSel ect ion; 

125 — 

126 — {Selection - per pad) 
127— PROCEDURE TCreateBoxSel ect ion. HouseHove(n»useLPt: LPoint); OVERRIDE; 

128 -- PROCEDURE TCreateBoxSel ect ion. ttouseRel ease; OVERRIDE; 

129 — END; 

150 -- 

151 — 

152 — { This command recolors the selected box and is undoable] 
155 — TRecol orCmd - SUBCLASS OF TCommand 

154 — Box: TBox; 

155 — color TColor, 

156 -- 

157 — {Creation} 

158— FUNCTION TRecol orCmd. CREATE( object: TObject; ItsHeap: THeap; itsCmdNumben TCmdNumber, 

159 — itsVieu: TBoxVieu; itsBox: TBox. itsColor TColor): TRecol orCmd; 

140 — 

141 — {Command Execut ion} 

142— PROCEDURE TRecol orCmd. Commit; OVERRIDE; 

145— PROCEDURE TRecol orCmd. Per formCcmdPhase: TCmdPhase); OVERRIDE; 

144— PROCEDURE TRecol orCmd. FilterAndDo( actual Obi: TObject; 

145 — PROCEDURE DoToOb ject( f illeredOb j: TObject)); OVERRIDE; 

146 — END; 

147 — 
146 — 

149 — { This command dupl icates the selected box and is undoable ) 

150 — TDupI icateCmd - SUBCLASS OF TCommand 

151 -- oldBox, neuBox: TBox; 

152 — 

155 — {Creat ion} 

154— FUNCTION TDupl icateCmd. CREATE( object: TObject; itsHeap: THeap; itsCmdNumben TCmdNumber, 

155— itsVleu: TboxVieu; itsBox; TBox): TDupl icateCmd; 

156 — 

157 -- {Command Execution} 

158— PROCEDURE TDupl icateCmd. Commit; OVERRIDE; 

159— PROCEDURE TDupl icateCmd. Perforin(cmdPhase: TCmdPhase): OVERRIDE: 

160— PROCEDURE TDupl icateCmd. EachVirtual Part (PROCEDURE Dot oObject(fil teredObj: TObject)); OVERRIDE; 

161 — END; 

162 — 
165 — 

164 — { This command clears the view and is undoable } 

165 — TClearAllCmd - SUBCLASS OF TCommand 

166 — {Variables} 

167 — kind: INTEGER; 

168 — 

169 -' {Creation) 
170— FUNCTION TClearAllCmd. CREATE( object: TObject; itsHeap: THeap; itsCmdNumben TCmdNumber, 

171 — itsVieu: TboxVieu): TClearAllCmd; 

172 — 

175 — {Command Execution} 

174— PROCEDURE TClearAllCmd. Commit; OVERRIDE; 

175 -- PROCEDURE TClearAllCmd. Perform(cmdPhase: TCmdPhase); OVERRIDE; 

176 — PROCEDURE TCI earAl I Cmd. EachVirtual Part (PROCEDURE DoToObject( fil teredObj; TObject)); OVERRIDE; 

177 — END; 

178 — 

179 — 

180 -- TBoxProcess • SUBCLASS OF TProcess 

181 — 

182 — {Creation/Destruction} 

185— FUNCTION TBoxProcess. CREATE: TBoxProcess; 

184— FUNCTION TBoxProcess. NeuOocHanaaerf vol umePre fix: TFilePath; openAsTool: BOOLEAN) 
186 — : TDocttanager OVERRIDE; 

186 — END; 

187 — 

188 — 

189 — TBoxDocManager ■ Sl»CLASS OF TDocttanager 

190 — 

191 — {Creation/Destruction} 

192— FUNCTION TBoxDocManaoer. CREATE( object: TObject; itsHeap; THeap; itsPathPref ix: TFilePath) 

195 — : TBoxDocManager, 

194— FUNCTION TBoxDocHanager. NtuUindou(heap: THeap; ungrlD; TUindouID): TUindou; OVERRIDE; 

195 — END; 

196 — 

197 — 

198 — TBoxUindou > SUBCLASS OF TUindou 

199 — 

200 — {Creation/Destruction} 

201— FUNCTION TBoxUindou. CREATE( object: TObject; ItsHeap: THeap; itsUmgrlD: TWindouID): TBoxUindou; 

202 — 

205 — {Document Creat ion} 
204— PROCEDURE TBoxUindou. BlankSt at ionery; OVERRIDE; 

205 — 

206 — {Commands} 

207— FUNCTION TBoxUindou. NeuCommand(cmdNumben TCmdNumber): TCommand; OVERRIDE; 

208— FUNCTION TBoxUindou. CanDoCommand(cmdNut*en TCmdNumber; VAR check It: BOOLEAN); BOOLEAN; OVERRIDE; 

209 — END; 

210 — 

211 — 

212 — 
215 — IMPLEMENTATION 

214 — 

215 — ($1 U7Boxer2. text} 
2 1 — {u)B0XER2} 

2 2 — 

2 5 — tCTHODS OF TBox; 

2 4 — 

2 5 — A FUNCTION TBox. CREATE( object: TObject; ItsHeap: THeap): TBox; 



2 6 0- A BEGIN 

2 7-- (SIFC frrace)BP(ll); {$ENDC) 

2 8— SELF :- NeuObject(it$Heap, THISCLASS); 

2 9 ~ WITH SELF DO 

2 10 I- BEGIN 

2 11 -- shapeLRect : ■ zeroLRect; 

2 12 — color :■ colorCray; 

2 15 -1 END; 

2 14 — {$IFC nr»ce)EP;{$EMOC) 

2 15 -0 ft END; 

2 16 — 

2 17 — {$IFC fOebugMethods} 

2 18 — A PROCEDURE TBox, Fields( PROCEDURE FieldCnameftndType: S255)); 

2 19 0- ft BEGIN 

2 20— Fleldf' shapeLRect: LRecf); 

2 21— Fleldf 'col or INTEGER); 

2 22 — Field("); 

2 23 -0 ft END; 

2 24 — {SENDC) 

2 25 ~ 

2 26 — 

2 27 — {This draws a particular box) 

2 28 — ft PROCEDURE TBox. Drau; 

2 29 — VftR IPat: LPattem; 

2 50 0- ft BEGIN 

2 51 — fSIFC nrace}BP(10);{$ENDC] 

2 52 — panNormal ; 

2 53 — 

2 54 — IF LRectlsVlsibleC SELF. ShapeLRect) THEN {this box needs to be draun) 

2 55 1- BEGIN 

2 56 — {Get a Ouickdrau pattern to represent the box's color} 

2 57 2- CASE SELF, color OF 



IPatWhite; 

IPatLtGray; 

IPatGray; 

IPatDkGray; 

IPatBlack; 

IPatUhite; {this case should not happen} 



2 58 — colorWhite: IPat 

2 59 — colorLtGray: IPat 

2 40 — colorGray; IPat 

2 41 — coIorOkGray: IPat 

2 42 — colorSlack: IPat 

2 43 — OTHERWISE IPat 

2 44 -2 END; 

2 45 — 

2 46 — {Fill the box uith the pattern, and drau a frame around it} 

2 47— FiIlLRect( SELF. ShapeLRect, IPat); 

2 48 — FrameLRect( SELF. ShapeLRect); 

2 49-1 END; 

2 50 — {JIFC nrace)EP; {SENDC} 

2 51 -0 ft END; 

2 52 — 

2 55 — { Frame a particular box} 

2 54 — ft PROCEDURE TBox. DrauFrame; 

2 55 0- ft BEGIN 

2 56— {$1FC fTrace}BP(10);{$ENDC} 

2 57 — PenNormal; 

2 58 — PenMode{PatX0r); 

2 59— FrameLRect( SELF, ShapeLRect); 

2 60 — {JIFC nrace}EP; {SENDC) 

2 61 -0 ft END; 

2 62 — 

2 63 — {This calls the DoToHandl e Procedure once for each handle LRect; user of this method must 

2 64 — set up the pen pattern and mode before call ing} 

2 65 — ft PROCEDURE TBox. Paint Handl es; 

2 66 — VftR hLRect, 

2 67 — ShapeLRect: LRect; 

2 68 — dh, dv: LONG INT; 

2 69 — 

2 70 — B PROCEDURE MoveHandleAndPaintChOffset, vOffset: LWGINT); 

2 71 0- B BEGIN 

2 72 — Off set LRect (hLRect. hOffset. vOffset); 

2 73 — Paint LRect (hLRect); 

2 74 -0 B END; 

2 75 — 

2 76 0- ft BEGIN 

2 77 — {$IFC nrace}BP(10); {JENDC} 

2 78— SetLRect( hLRect, -5,-2, 3, 2); 

2 79 -- ShapeLRect : - SELF. shapeLRect; 

2 80 — WITH ShapeLRect DO 

2 81 1- BEGIN 

2 82 — dh : ■ right - left; 

2 83 -- dv : • bottom - top; 

2 84 — HoveHandleftndPaint(left, top); {draw top left handle} 

2 85 -1 END; 

2 86 — MoveHandleftndPaintfdh, 0); {then top right} 

2 87 — HoveHandleAndPaintfO, dv): {then bottom right} 

2 88 — HoveHandleAndPaint(-dh, 0); (finally bottom left} 

2 89 — {$1FG nracejEP; {SENDCJ 

2 90 -0 A END; 

2 91 — 

2 92 — END; 

2 93 — 

2 94— 

2 95 — METHODS OF TBox View; 

2 96 ~- 

2 97 — ft FUNCTION TBoxVieu. CREftTE( object; TObject; itsHeapv THeap; itsPanel: TPanel; itsExtent: LRect) 

2 98 — ; TBoxVieu; 

2 99 0- ft BEGIN 

2 100— (JIFC n race) BP( 11); {JENDC} 

2 101 — IF object -NIL THEN 

2 102— object :- NewObject( it sHeap, THISCLftSS); ^«,..^,.,.,,. , ^ > 

2 103— SELF ;- TBoxView(U$Panel.NeuVieu( object, itsExtent, TPrintManager. CREftTE(NIL, itsHeap), 

2 104 — stdMargins, TRUE)); 

2 105 — {JIFC fTrace}EP; {JENDC} 

2 106 -0 ft END; 

2 107 — 

2 108 — 

2 109 — {JIFC fDebupMethods) , , ,„,^r^^ 

2 110 — ft PROCEDUfJE TBoxView. Fi«lds( PROCEDURE Field(naia»ftndType: S255)); 

2 111 0- A BEGIN 

2 112— TView. F lei d$( Field); 

2 113 — FieldCboxList; TLisf); 

2 114 -0 A END; 

2 115 — {JENDC) 
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2 116 — 

2 117 — 

2 118 — {This r«tum$ the box containing a certain point} 

2 119 — A FUNCTION TBoxVieu. BoxWith(LPt: LPoint): TBox; 

2 120 — B PROCEDURE F lndBox( ob J: TObject); 

2 121 — VAR ')ox: TBox; 

2 122 0- B BEGIN 

2 125 — box :- TBox(obj); 

2 124— IF LPtInLRect(LPt, box. shapeLRect) THEN 

2 125 -- BoxUith ;• box; (last one found (front one) is returned] 

2 126 -0 B END; 

2 127 0- A BEGIN 

2 128 -- (JIFC fTracelBPCll): {SENDC) 

2 129 — boxUith : - NIL; 

2 130— SELF. EachVirtualPartfFindBox); 

2 151— {$1FC nrace}EP;{$ENbc) 

2 132 -0 A END; 

2 133 — 

2 13« — 

2 135 — [This draus the list of boxes) 

2 136 — A PROCEDURE TBoxVieu. Draw; 

2 137 — B PROCEDURE DrauBox(obj: TObject); 

2 138 ~ WAR box: TBox; 

2 139 0- B BEGIN 

2 lAO — box : « TBox(obj); 

2 141 -- box. Drau; 

2 1A2 -0 6 END; 

2 143 0- A BEGIN 

2 144— ($IFC nrace}BP(10); fJENDC) 

2 145— SELF. EachVlrtualPart(DrauBox); 

2 146— {$IFC HraceJEP; {SENDC) 

2 147 -0 A END; 

2 148 — 

2 149 — 

2 150 — A PROCEDURE TBoxVleu. EachActualPart(PROCEDURE DoToObject(filteredObj: TObject)); 

2 151 0- A BEGIN 

2 152— ($IFC rrrace)BP(ll);f$ENDC} 

2 153— SELF. boxLlst. EachCDoToObject); 

2 154— {JIFC nrace}EP;{JENDC) 

2 155 -0 A END; 

2 156 — 

2 157 — 

2 158 — [This determines which type of selection to create} 

2 159 — A PROCEDURE TBoxVieu. MousePressfmouseLPt: LPoint); 

2 160 — VAR aSel ect ion: TSei ect ion; 

2 161 — panel : TPanel ; 

2 162 — box: TBox; 

2 163 — 

2 164 0- A BEGIN 

2 165— {$IFC nracelBP(ll);{$ENDC} 

2 166 — panel : - SELF, panel ; 

2 167— panel. Highl ight( panel, select ion, hOntoOff); {Turn off the old highl ight ing} 

2 168 — box :- SELF. BoxUith(mouseLPt); {Find the box the usercl icked on) 

2 169 — 

2 170 — IF box - NIL THEN 

2 171 -- {Create an instance of TCreateBoxSel ect ion} 

2 172 — aSelection :■ panel, select ion. FreedAndReplacedBv( 

2 173— TCreateBoxSel ect ion. CREATEC NIL, SELF, heap, SELF, wouseLPt)) 

2 174 — ELSE 

2 175 — {Create an instance of TBoxSel ect ion} 

2 176 — aSelection :• panel . select ion. FreedAndReplacedBy( 

2 177— TBoxSel ect ion. CREATE( NIL, SELF, heap, SELF, box, boxSelect ionKind, mouseLPt)); 

2 178 — 

2 179 — panel . Highl ightC panel, select ion, hOffToOn); {Turn on the highlighting for the neuly selected box} 

2 180 — 

2 181 — sel f. panel, select ion. Ha rkChanged; fAIlou the document to be saved so that any changes made} 

2 182 — {can become permanent} 

2 183 — {SIFC nrace}EP;{$ENDC} 

2 184 -0 A END; 

2 185 — 

2 186 — 

2 187 — A PROCEDURE TBoxVieu, InvalBox( invalLRect; LRect); 

2 188 0- A BEGIN 

2 189— {$1FC fTrace}BP(10): {$ENDC) 

2 190— InsetLRectC inval LRect, -5, -2); 

2 191 — SELF, panel. Inval LRect ( inval LRect); 

2 192— {$1FC fTrace}EP;{$ENDC} 

2 193 -0 A END; 

2 194 — 

2 195 — 

2 196 — A PROCEDURE TBoxVieu, InitBoxList (itsHeap: THeap); 

2 197 — VAR boxLlSt; TLiSt; 

2 198 0- A BEGIN 

2 199— {$IFC fTracelBP(ll):{$ENDC) 

2 200 — boxList :- TLlst. CR£ATE(N1L, itsHeap, 0); 

2 201 — SELF. boxList :- boxLlst; 

2 202 — {$1FC fTrace}EP; {$ENDC] 

2 203 -0 A END. 

2 204 — 

2 205 — 

2 206 — A FUNCTION TBox View. NoSel ect ion: TSelection; 

2 207 0- A BEGIN 

2 208— {$1FC nrace}BP(ll);f$ENDC} 

2 209— NoSelect ion :- TBoxSel ect ion. CREATE( NIL, SELF. Heap, SELF, NIL, nothingKind, zeroLPt); 

2 210 — {$IFC fTrace}EP;{$ENDC} 

2 211 -0 A END; 

2 212 — 

2 213 — END; 

2 214 — 

2 215 — 

2 216 — 

2 217 — METHODS OF TBoxSel ect ion; 

2 218 — 

2 219 — A FUNCTION TBoxSel ect ion, CREATE( object: TObject; itsHeap; THeap; itsVieu: TVieu; itsBox: TBox; 

2 220— itsKlnd: INTEGER; itsAnchorLPt: LPoint): TBoxSel ect ion; 

2 221 0- A BEGIN 

2 222— rjlF^C fTrace)BP(ll);{$ENDC) 

2 223 — IF object - NIL THEN 

2 224— object :• NeuObject( itsHeap, THISCLASS); 

2 225— SELF :■ TBoxSel ect ion( TSelection. CREATEC object, itsHeap, itsVieu, ItsKind, itsAnchorLPt)); 
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SELF, box :• ItsBox; 
{$1FC fTrace}EP; {SENDC) 
END; 

{SIFC fDebugMethods) 

PROCEDURE TBoxSel ect ion. F iel ds( PROCEDURE F iel d( natneAndType: S255) ) ; 
BEGIN 

TSel«ction.Fl«ldsf Field); 
FleldCbox: TBox); 
END; 
{JENDC} 
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520 — 
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2 
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{This draws the handles on the selected box) 
)CE - . — . 

IN 



PROCEDURE TBoxSel ect ion. Highl ight(highTrans it: THighTrans it); 
BEGIN 

'JIFC nr«ce)BP(ll); {$ENDC} 

SELF, kind <> nothingKjnd THEN 
BEGIN 

thePad. SetPenToHighl ight(highTransit); fset the drauing mode according to desired highlighting) 
SELF, box, PaintHandles; {drau the handles on the box) 

END; 
{JIFC nr»ce)EP;{$ENDC) 
END; 

{This is called uhen the user moves the mouse after pressing the button) 
PROCEDURE TBoxSel ect Ion. HouseMoveCmouseLPt: LPoint); 
VAR dJffLPt: LPoint; 

boxVieu: TBoxUieu; 

shapeLRect: LRect; 
BEGIN 

(SIFC fTracelBP(ll);{SENDC} 

boxVieu :- T6oxVieu(SELF. vieu); 

{Hou far did mouse move?) 
LPtMinusLPt(mouseLPt, SELF. currLPt, diffLPt); 

{Move it if delta is nonzero) 
IF NOT Equal LPt( diffLPt. zeroLPt) THEN 
BEGIN 
SELF. currtPt : • mouseLPt; 

ShapeLRect : « SELF, box, shapeLRect; 

{Compute old and neu positions of box) 
box V ieu. Inval Box( shapeLRect ) ; 
f fset LRect ( shapeLRect , d i f fLPt . h, d i f fLPt . v) ; 
boxUieu. Inval Box( shapeLRect); 

SELF. box. ShapeLRect : » shapeLRect; 
END; 
{JIFC nnice)EP;{$ENDC) 
END; 

PROCEDURE TBoxSel ect ion. HouseReJ ease; 
BEGIN 

{SIFC nrace)BP(ll);{$ENDC) 

{ If the mouse moved then commit any outstanding command ) 
IF NOT Equal LPt( SELF. currLPt, SELF, anchorLPt) THEN 

SELF, uindou. CommitLasl; 
{SIFC nracejEP; {JENDCJ 
END; 

FUNCTION TBoxSel ect ion. NeuCommandCcmdNLMtoen TDadNuinber): TCommand; 
VAR boxVieu: TBox Vieu; 

heap: THeap; 

BEGIN 

{JIFC nrace)BP(ll);{$ENDC) 

boxVleu :- TBoxVieu( SELF, vieu); 
heap : > SELF. Heap; 

CASE cmdNumber OF 

uUhite, uLtGray, uGray, uOkGray. uBIecfc: 

NeuCommand :- TRecoiorC*tO?£AT£(N]L, heap, cmdNumber, box Vieu, SELF, box, 

cmdNumber - uUhite ♦ colortlhite): 

uDupI icate 

NeuCommand ;- TOupl icateCmd. CREATE(NIL, heap, cmdNumber, boxVieu, SELF, box); 

OTHERyiSE 

NeuCommand :- SUPERSELF.NeuCoinmandC cmdNumber); 

END; 
{JIFC fTrace)EP;{j£NDC) 



END; 



y 



FUNCTION TBoxSel ect ion. C»nDoConwand( cmdNumber, TCmdNumber, VAR check It: BOOLEAN): BOOLEAN; 
BEGIN 

[JIFC nrace)BP(ll);{$ENDC) 
iASE cmdNumber OF 

uUhite, uLtGray, uGray, uOkGray, uBlack, 

uOupl icate: .,, ^ 

CanDoCommand :■ SELF, kind <> nothingKind; 

OTHERWISE „ „ ^, w« ■- k. , ,,\ 

CanDoCommand :■ SUPERSELF. CanDoCommand( cmdNumber, check It); 



END; 



END; 
{JIFC nrace)EP; {JENDC) 



END; 



METHODS OF TCreateBoxSelect ion; 
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556 




ft 


FUNCTION TCr«*t«BoxSel«ct ion. CREATEC object; TObjecl; itsHeap: THeap; itsVieu: TVieu; 


2 


557 


-- 






ItsAnchorLPt: LPoint): TCreateBoxSel ect ion; 


2 


558 


-- 




VAR 


box; TBox: 


2 


559 


0- 


A 


BEGIN 


2 


540 


— 






fSlFC frrac«)BP(ll);{$ENDC) 
IF object - NIL THEN 


2 


541 


-- 






2 


542 


— 






object :- NeuOb ject( itsHeap, THISCLASS); 
SELF :• TCreateBoxSel ect ion(TSel ect ion. CREATEC object, ItsHeap. itsVieu. createBoxSelect ionKind, 


2 


545 


— 






2 


544 


-- 






ItsAnchorLPt)); 


2 


545 


— 






box :• TBox. CREATE! NIL. SELF, heap); 


2 


546 


-- 






SELF, box ; - box; 


2 


547 


— 






{$IFC nrace)EP; {JENDC} 


2 


548 


-0 


A 


END 




2 


549 


.~ 








2 


550 


-- 








2 


551 


-. 




{JIFC fOebuqflethods) 


2 


552 


— 


A 


PROCEDURE TCreat»BoxSel ect ion. FieldsC PROCEDURE Fi8ld(nameAndType: S255)); 


2 


555 


0- 


A 


BEGIN 


2 


554 








TSe! ect ioa F tel dsf F iel d) ; 
F iel d( • box: TBox' ) ; 
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-- 






2 


556 


-0 


A 


END 
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557 






{SENDC) 
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-- 
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.- 
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560 


-- 




Th 
i^RO 


is is called when the user moves the mouse after pressing the button) 


2 


561 


— 


A 


CEDURE TCreateBoxSel ect ion. househove(mouseLPt: LPoint); 


2 


562 


— 




VAR 


maxBoxLRect: LRect; 


2 


565 


— 






diffLPt; LPoint; 


2 


564 


-> 






boxVieu: TBoxVieu; 


2 


565 


-- 






box: TBox; 


2 


566 


-. 








2 


567 


— 


B 




PROCEDURE DrauTheFrame; 


2 


568 


0- 


B 




BEGIN 


2 


569 


-- 






box. DrauFrame; 


2 


570 


-0 


B 




END; 


2 


571 


— 








2 


572 


0- 


A 


BEGIN 


2 


575 


— 






{$1FC fTrace2BP(ll);f$ENDC) 
boxVieu :■ TBoxVieu(5ELF. vieu); 


2 


574 


-- 






2 


575 


-- 






box : - SELF, box; 


2 


576 


— 








2 


577 


— 






{ In Boxer it is possible to drau a box greater than alloued by a 16 bit rectangle. These three 


2 


578 


-- 






lines force the rectangle to within 16 bits. ) 


2 


579 


-- 




{$H-) 


WITH SELF. anchorLPt DO 


2 


580 


-- 






Set LRect (maxBoxLRect, h*10-MAXINT, v-lO-MAX INT, h-MAXINT-lO, vMAXINT-10); 
LRect HaweLPtCmaxBoxLRect. mouseLPt); 


2 


581 


-- 




{$H*) 


2 


582 


-. 








2 


585 


— 






LPtt1inusLPt(moUseLPt. SELF, cur rLPt. diffLPt); 


2 


584 


-- 






IF NOT Equal LPt( diffLPt. zeroLPt) THEN 


2 


585 


1- 






BEGIN 


2 


586 


— 






SELF. currtPt :• mouseLPt; 


2 


587 


— 








2 


588 


— 






boxVieu. panel . OnAl 1 PadsDo( DrauTheF rame) ; 


2 


589 


-- 






WITH box DO 


2 


590 


2- 






BEGIN 


2 


591 


— 






shapeLRect. topLeft :- SELF. anchorLPt; 


2 


592 


-- 






shapeLRect. bot Right :> mouseLPt; 


2 


595 


-2 






END; 


2 


594 


-- 








2 


595 


— 




{$H-) R»ctifyLRect(box. shapeLRect); {$H*) 


2 


596 


-- 






boxVieu. panel. OnAl lPadsDo( DrauTheF rame); 


2 


597 


-1 






END; 


2 


598 


— 






{$1FC nracelEP; {SENDC) 


2 


599 


-0 


A 


END 




2 


400 


-- 








2 


AOl 


-- 








2 


402 


— 


A 


PROCEDURE TCreateBoxSel ect ion. MouseRel ease; 


2 


405 


-. 




VAR 


thisBox; TBox; 


2 


404 


.- 






boxUieu: TBoxVieu; 


2 


405 


— 






draunLRect: LRect; 


2 


406 


-- 






aSel ect ion; TSel ect ion; 


2 


407 


-- 






panel ; TPanel ; 


2 


408 


-- 








2 


409 


.- 


B 




PROCEDURE DrauTheFrame; 


2 


410 


0- 


6 




BEGIN 


2 


411 


— 






thisBox. DrauFrame; 


2 


412 


-0 


B 




END; 


2 


415 


-- 








2 


414 


0- 


A 


BEGIN 


2 


415 


— 






{$IFC nrecelBP(ll);f$ENDC) 
boxVieu:- TBoxVieuC SELF, vieu); 


2 


416 


-- 






2 


417 


— 






panel :■ boxVieu. panel; 


2 


418 


— > 






thisBox :- SELF, box; 


2 


419 


— 






panel . OnAl 1 PtdsDo{ D rauTheF rame) ; 


2 


420 


— 






draunLRect : > thisBox. shapeLRect; 


2 


421 


-- 








2 


422 


__ 






{ Independent of whether we threu the boxed auay or not ue must create an instance of TBoxSel ect ion 


2 


425 









to replace the nou useless Instance of TCreateBoxSel ect ion using the kind set above. } 


2 


424 


.- 






aSelection :> SELF. FreedAndReplaceby( 

TBoxSel ect ioa CREATE( NIL, SELF. heap. boxVieu, thisBox. boxSel ect ionKind. 


2 


425 


_. 






2 


426 


— 






draunLRect. topi eft) ) ; 


2 


427 


-- 








2 


428 


— 






boxVieu. InvalBoxC draunLRect); 


2 


429 


.- 








2 


450 









{If the box is not big enough then throu it auay, otherulse put it in the list) 

IF (draunLRect. right - draunLRect. left <-4) OR (draunLRect. bottom - draunLRect. top <»4) THEN 


2 


451 


— 






2 


452 


1- 






BEGIN 


2 


455 


-- 






•Sel ect ion. kind : - nothingKlnd; 


2 


454 


— 






thisBox. Free; 


2 


455 


-1 






END 


2 


456 


1- 






ELSE BEGIN 


2 


457 








{ Commit any outstanding command ) 
SELF, uindou. CommitLast; 


2 


458 


-- 






2 


459 


.. 








2 


440 


— 






boxVieu. boxList. InsLast( thisBox); 


2 


441 


-1 






END; 


2 


442 








{JIFC n race) EP; (JENDC) 


2 


445 


-0 


A 


END; 


2 


444 


.- 








2 


445 


— 




END; 
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2 446 — 

2 447 — 

2 448 — 

2 449 — 

2 450 — HETHODS OF TRecol orCmcl; 

2 451 — 

2 452 — A FIJNCTION TR«colorCiiid. CREATE( object: TObject; ItsHetp: THeap; itsCmdNumber. TCmdNumber; 

2 455 — ItsViBU: TBoxyieu; itsBox: TBox; ItsColor TColor): TRecolorCmd; 

2 454 0- A BEGIN 

2 455— f$IFC fTrace}BP(10);{$£NDC3 

2 456 — IF object - NIL THEN 

2 457 — object :- NeuOb ject( ItsHeap, THISCLflSS); 

2 458— SELF :- TRecolorCffldCTCommand. CREATE( object, itsHeap, itsCmdNumber, itsVieu, TRUE, reveal Al 1 )} ; 

2 459— SELF, color :• ItsCoI on 

2 460 — SELF, box : - itsBox; 

2 461 — {$IFC fTrace}EP; {$ENDC) 

2 462 -0 A END; 

2 463 — 

2 464 — 

2 465 — rjIFC fOebupMethods} 

2 466 — A PROCEDURE TRecolorCmd. FieldsC PROCEDURE Field(nameAndType: S255)); 

2 467 0- A BEGIN 

2 468— TCommand. F iel ds( F iel d) : 

2 469— F iel dC Color INTEGER); 

2 470— Fleld('box: TBox'); 

2 471 -0 A END; 

2 472 — {JENDC} 

2 475 — 

2 474 — 

2 475 — A PROCEDURE TRecol orCmd. Commit; 

2 476 0- A BEGIN 

2 477— {$1FC fTrace)BP(12);{$ENDC} 

2 478 — SELF. box. color :■ SELF, color; 

2 479 — {$IFC nrace)EP; {JENDC} 

2 480 -0 A END; 

2 481 — 

2 482 — 

2 483 — A PROCEDURE TRecolorCmd. Perform(cmdPhase: TCmdPhase); 

2 484 — VAR box V leu: TBoxVieu; 

2 485 — tempColor TColor, 

2 486 0- A BEGIN 

2 487— {$IFC fTrace}BP(12);f$ENDC] 

2 488 — boxVleu :■ TBoxVieu(SELF. imaqe); 

2 489— boxVieu. lnvalBox(SELF. box. shapeLRect); 

2 490 — self, image, vieu. pane] . select ioa harkChanged; fallou this document to be saved} 

2 491 — {JIFC nrac8)EP; ISENDC) 

2 492 -0 A END; 

2 495 — 

2 494 — 

2 495 — A PROCEDURE TRecolorCmd. FilterAndDo( actual Ob j: TObject; PROCEDURE DoToObject( filteredObj: TObject)); 

2 496 — VAR saveColor TColor, 

2 497 — box: TBox; 

2 498 0- A BEGIN 

2 499— {$1FC nracelBP(12);{$ENDC] 

2 500 — box :■ TBox( actual Obi); 

2 501 — IF box - SELF, box THEN 

2 502 1- BEGIN 

2 505 — saveColor ;■ box. colon 

2 504 — box. color :- SELF. Color. 

2 505 — DoToObject(box); 

2 506 — box. col or : ■ saveCol or, 

2 507 -1 END 

2 508 — ELSE 

2 509 — OoToObject(box); 

2 510— {$IFC nrace]EP;{$ENDC) 

2 511 -0 A END; 

2 512 — 

2 513 — END; 

2 514 — 

2 515 — 

2 516 — 

2 517 — HETHODS OF TDupl icateCmd; 

2 518 — 

2 519 — A FUNCTION TDupl IcateCmd. CREATE( object; TObject; ItsHeap: THeap; ItsCmdNumber TCmdNumber, 

2 520— itsVieu: TBoxVieu; itsBox: TBox): TDupi icateCmd; 

2 521 — B PROCEDURE CI oneBox{ filteredObj; TObject); 

2 522 — VAR box: TBox; 

2 523 0- 6 BEGIN 

2 524— box :- TBox( filteredObj. CI one( itsHeap)); 

2 525 — SELF. neuBox : - box; 

2 526 -0 B END; 

2 527 0- A BEGIN 

2 528— fSlFC nr»cejBP(10); {SENDC] 

2 529 — IF object - NIL THEN 

2 550 — object :■ NeuObiectf itsHeap, THISCLASS); ,,^ 

2 551— SELF :• TDupl icateCmd(TCoramand. CREATEC object, itsHeap, itsCmdNumber. itsVieu, TRUE, revealAll)); 

2 552— TBoxVieof SELF, image). FiIterAndDo{ itsbox. CloneBox); 

2 555 — SELF. oldBox :- ItsBox; 

2 554— {$H-] OffSetLRect(SELF,neuBox. ShapeLRect. 20, 20); {$H«} 

2 555 — {$IFC nracejEP; {JENDC} 

2 556 -0 A END; 

2 557 — 

2 558 — 

2 559 — A PROCEDURE TDupl icateCmd. Free; 

2 540 0- A BEGIN 

2 541— f$IFC fTrace}BP(10);{$£NDC3 

2 542— Free(SELF. neuBox); 

2 543 — SELF.FreeObJect; 

2 544 — {$IFC nrace}EP;{$ENDC) 

2 545 -0 A END; 

2 546 — 

2 547 — 

2 548 — {JIFC fDebugflethods} , , ^^,.^^ 

2 549 — A PROCEDURE TDupl icateCmd, F iel d$( PROCEDURE F iel d(nameAndType: S255)); 

2 550 0- A BEGIN 

2 551— TCommand. F iel ds(F iel d) ; 

2 552— F iel d( • ol dBox: TBox'}; 

2 555 — F iel d( ' neuBox: TBox' ) ; 

2 554 -0 A END; 

2 555 — {JENDC} 
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r 
2 556 










2 557 


-- 








2 558 


— 


A 


PROCEDURE TDupl icateCmd. Cooniit; 




2 559 


-- 




VAR boxVieu: TBoxVieu: 




2 560 


0- 


A 


BEGIN 




2 561 


— 




{$IFC frrtcelBP(12);{$ENDC) 
boxVi»u :• TBoxVi8u(SELF. image): 




2 562 


-- 






2 563 


— 




boxVisu. boxList. InsL«st(S£LF. rwuBox); 




2 564 


-- 




SELF. n«uBox :- NIL; 




2 565 


— 




{$1FC ft race) EP; (SENDC) 




2 566 


-0 


A 


END; 




2 567 


-- 








2 568 


— 








2 569 


~ 


A 


PROCEDURE TDupl icateCmd. Perfonn(ciiidPha$e; TCmdPhase); 




2 570 


-- 




VAR boxVieu: TBoxVieu; 




2 571 


>- 




box: TBox; 




2 572 


-- 




thisSelection: TBoxSel ect ion; 




2 575 


0- 


A 


BEGIN 




2 574 


— 




{$IFC nracelBP(12);f$ENDC) 

boxViau :- TBoxVieu(SELF. image) : 

thlsSelection :* TBoxSal act ion(boxVieu. panel . select ion); 




2 575 


— 






2 576 


— 






2 577 


-- 








2 578 
2 579 






{..—----.-..—.. __—_-.-____________„________________„___________________-__-___ 




.. 




The current selection is unhighl ighted before performing the command as the result 




2 580 


— 




of the following command fields set by TCommand. CREATE: 




2 581 


— 




unHil iteBefore(doPha$e. . redoPhase] <- TRUE 




2 582 


-- 








2 583 


-- 




The resulting selection is highlighted after performing the command as the result of 
following comnand fields set by TCommand. CREATE: 


the 


2 584 


-- 






2 585 
2 586 
2 587 


— 




hiLiteAfter [ doPhase. . redoPhasej <- TRUE 


1 


__ 






— j 


2 588 


— 




WITH thisSelectlon DO 




2 589 


1- 




CASE cmdPhase OF 




2 590 


-- 




doPhase, redoPhase: 




2 591 


-- 




box : ■ SELF. neuBox; 




2 592 


— 




undoPhase: 




2 595 


-- 




box :> SELF. oldBox; 




2 594 


-1 




END {CASE); 




2 595 


-- 








2 596 


— 




boxVieu. InvalBox(SELF. neuBox. shapeLRect); 




2 597 


-- 








2 598 


— 




self, image, vieu. panel . selection. harkChanged; {allou this document to be saved} 
{$IFC nrace)EP;l$ENDC) 




2 599 


— 






2 600 


-0 


A 


END; 




2 601 


-- 








2 602 


.- 








2 605 


— 


A 


PROCEDURE TDupl icateCmd. EachVirtualPart( PROCEDURE DoToObJect( fil teredObj: TObject)); 




2 604 


0- 


A 


BEGIN 




2 605 


— 




{$IFC nrace)BP(12):{$ENDC} 




2 606 


-- 






2 607 


— 




DoToOb1ect(SELF. neuBox); 
{$1FC fTrace]EP;{$ENDC) 




2 608 


— 






2 609 


-0 


A 


END; 




2 610 


— 








2 611 


-- 




END; 




2 612 


-- 








2 615 


-. 








2 614 


— 








2 615 


-- 




METHODS OF TClearAllCmd; 




2 616 


-- 








2 617 


— 


A 


FUNCTION TClearAllCmd. CREATE( object: TCfcject; itsHeap: THeap: itsCmdNumber TCmdNumber, 




2 616 


-- 




its View; TBoxVieu): TClearAllCmd; 




2 619 


D- 


A 


BEGIN 




2 620 


— 




fJIFC nrace)BP(10);{JENOC) 
IF object -NIL THLN 

object :- NeuObject( ItsHeap, THISCLASS); 




2 621 


-- 






2 622 


— 






2 625 


-- 




SELF :« TCI earAnCmd( TCommand. CREATE( object, itsHeap, itsCmdNumber, ItsVieu. TRUE, revea 


INone)); 


2 624 


-- 




SELF, kind : > SELF, image, vieu. panel . sel ect ion. kind; 




2 625 


— 




{$IFC nr»ce)EP; (SENDC) 




2 626 


-0 


A 


END; 




2 627 


— 








2 628 


-- 








2 629 


— 




{$IFC fDebugMethods) 




2 650 


— 


A 


PROCEDURE TCI ea rAl 1 Cmd. F iel ds( PROCEDURE F iel d( nameAndType: S255) ) ; 




2 651 


0- 


A 


BEGIN 




2 652 


— 




TCommand. F iel ds( F iel d) ; 
F iel dC kind: INTEGER); 




2 655 


-- 






2 654 


-0 


A 


END; 




2 655 


— 




{JENDC} 




2 636 


-- 








2 657 


-- 








2 658 


-- 


A 


PROCEDURE TClearAllCmd. Cowmit; 




2 659 


0- 


A 


BEGIN 




2 640 


— 




(JIFC nrace)BP(12): I$£NDC1 

TBoxV ieu( SELF, image) . boxL ist . Del Al 1 ( TRUE) ; 

I JIFC frr*ce)EP;{|£NDC} 




2 641 


-- 






2 642 


— 






2 645 


-0 


A 


END; 




2 644 


~ 








2 645 











2 646 


— 


A 


PROCEDURE TCI earAl 1 Cmd. Per fenn( cmdPhase: TCmdPhase) ; 




2 647 


-. 




VAR thlsSelection: TSelection; 




2 648 


-. 




boxVieu: TBoxVieu; 




2 649 


0- 


A 


BEGIN 




2 650 


— 




{$IFC nr»celBP(12);($ENDCl 
boxVieu :- TBox Vieu( SELF, image); 




2 651 


-• 






2 652 


— 




th isSel ect ion ; ■ bexV ieu. panel . sel ect ion; 




2 655 


-. 








2 654 


-- 




WITH IhisSelection DO 




2 655 


1- 




CASE cmdPhase OF 




2 656 


— 




doPhase, redoPhase: 




2 657 


— 




kind :- nothingKind; 




2 658 


-- 




undoPhase; 




2 659 


— 




kind :■ SELF, kind; 




2 660 


-1 




END; 




2 661 


-. 








2 662 


— 




{ Invalidate the whole panel } 




2 663 


— 




boxVieu. panel. Inval idate; 




2 664 


_. 








2 665 

V 


— 




self, image, view, panel, selection. Ma rkChanged; {alJou this document to be saved) 





rage 



2 666— IJIFC fTr»c«)EP. {$ENDC} 

2 667 -0 A END; 

2 668 — 

2 669 — 

2 670 — A PROCEDURE TCI MrftllCmd. EachVirtualPart(PROCEDURE DeToObject{fJUeredObj; TObject)); 

2 671 0- A BEGIN 



2 672— fJIFC nracelBP(12);{$ENDC} 

2 675— UlFC nrace)EP;{$£NDC) 



2 674 -0 A END; 

2 675 — 

2 676 — END; 

2 677 — 

2 678 — 

2 679 — 

2 680 — METHODS OF TBoxProcess; 

2 681 — 

2 682 -- A FUNCTION TBoxProcess. CREATE: TBoxProcess; 

2 683 0- A BEGIN 

2 684— {$1FC nracelBP(ll); f$ENDCl 

2 685— SELF : - TBoxProcess(tProcess. CREATE(NeuObject(mainHeap, THISCLASS), malnHeap)); 

2 686— {$IFC rrr»ce)EP;{$£NDC} 

2 687 -0 A END; 

2 688 — 

2 689 — 

2 690 — A FUNCTION TBoxProcess. NeuOocManager( vol umePrefix: TFIlePalh; openAsTool: BOOLEAN): TDocManager; 

2 691 0- A BEGIN 

2 692— (JIFC fTrace)BP(ll); (SENDC) 

2 695 — NeuDocHanager :- TBoxDocManager. CREATE(NIL. mainHeap, vol umePrefix); 

2 694 — {$IFC nrace}EP; {SENDC) 

2 695 -0 A END; 

2 696 — 

2 697 — END; 

2 698 — 

2 699 — 

2 700 — 

2 701 — METHODS OF TBoxDocManager, 

2 702 — 

2 703 — A FUNCTION TBoxDocManager. CREATE( object: TObject; ItsHeap: THeap; ItsPathPref ix: TFilePath) 

2 704 — : TBoxDocManager; 

2 705 0- A BEGIN 

2 706— fJIFC fTr»ce)BP(ll); {$ENDC} 

2 707 — IF object - NIL THEN 

2 708— object ;■ NeuObjectf JtsHeap, THISCLASS); 

2 709— SELF :■ TBoxDocManager(TOocManager.CREATE( object, ItsHeap, ItsPathPref ix)); 

2 710 — { JIFC nracejEP; {$ENOCJ 

2 711 -0 A END; 

2 712 — 

2 713 — 

2 714 — A FUNCTION TBoxDocManager. NeuUindou( heap: THeap; umgrlD: TUindouID); TWindou; 

2 715 0- A BEGIN 

2 716— {$1FC nrace}BP(ll);{$ENDCl 

2 717— NeuUindou ; ■ TBoxUindou. CR£.ATE(NIL, heap, umgrlD); 

2 718 — {$1FC nrace}EP; {JENDC} 

2 719 -0 A END; 

2 720 — 

2 721 — END; 

2 722 — 

2 723 — 

2 724 — 

2 725 — METHODS OF TBoxUindou; 

2 726 — 

2 727 — A FUNCTION TBoxUindou. CREATE{ object: TObject; ItsHeap: THeap; itsUmgrlD: TUindouID): TBoxUindou; 

2 728 0- A BEGIN 

2 729— fJIFC fTrace}BP(10);{$ENDC} 

2 730 — IF object -NIL THEN 

2 731— object :• NeuObject( itsHeap, THISCLASS); 

2 752— SELF ;« TBoxtillndouCTliJindou. CREATEC object, itsHeap, itsUmgrlD, TRUE)); 

2 733— (JIFC fTrace)EP;{$£NDC} 

2 734 -0 A END; 

2 735 — 

2 736 — 

2 737 — A PROCEDURE TBoxUindou. BlankSt at ionery; 

2 738 — WAR vieuLRect: LRect; 

2 739 — panel: TPanel; 

2 740 — box V leu: TBoxVieu; 

2 741 — aSeiection: TStlection; 

2 742 0- A BEGIN 

2 743— {$IFC rrracelBP(10);{$ENDC) . , 

2 744— panel :- TPanel. CREATE( NIL, SELF. Heap, SELF, 0, 0, [aScroll, aSpl it] , [aScroll, aSpllt)); 

2 745 — 

2 746 — Set LRect (vieuLRect, 0, 0, 5000. 5000): 

2 747— boxVieu :" TBoxV leu. CREATEC NIL, SELF. Heap, panel, vieuLRect); 

2 748— boxVieu. lnitBoxLlst(SELF. Heap); 

2 749 — 

2 750 — {$IFC nrace)EP; {SENOCj 

2 751 -0 A END; 

2 752 — 

2 753 — 

2 754 — A FUNCTION TBoxUindou. NeuCoiwBandCcmdNunnber. TCmdNumber): TConinand; 

2 755 0- A BEGIN 

2 756 — {JIFC n race} BP( 11); {SENDC] 

2 757 — 

2 758 1- CASE cmdNumber OF 

2 759 — uClearAll: 

2 760— NeuConnand :- TCI earAIlCBd. CREATEC NIL, SELF, heap, cmdNumber, 

2 761— TBoxVieuC SELF, sel ectPanel. vieu)); 

2 762 — 

2 763 — OTHERWISE ^ 

2 764 — NeuCormnand :■ SUPERSELF. NeuCommandC cmdNumber); 

2 765-1 END; 

2 766 — {$1FC nrace}EP; (JENDC) 

2 767 -0 A END; 

2 768 — 

2 769 — 

2 770 — A FUNCTION TBoxUindou. CanOoCommandC cmdNumber. TCmdNumber VAR check It: BOOLEAN): BOOLEAN; 

2 771 0- A BEGIN , 

2 772— {JIFC fTnice}BPC 11); {JENDC} 

2 773 1- CASE cmdNumber OF 

2 774 — uClearAll: 

2 775 — CanDoCownand : • TRUE; 
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2 776 — OTHERWISE 

2 777 — CanDoCoiwnand :• SUPERSELF. CinDoCommandfcmdNumber, check It); 

2 778 -1 END; 

2 779— {$1FC nr»ce)EP;{$ENDC} 

2 780 -0 ft END; 

2 781 — 

2 782 — END; " 

1 216 — 

1 217 — END. 
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1. u7boxer. TEXT 

2. U7Boxer2. text 

-B- 

BlankStationery 204-( 1) 757-( 2) 
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168-( 2) 170 ( 2) 177 ( 2) 227-( 2} 247 ( 2) 270 ( 2) 276 ( 2) 503 ( 2) 507 f 2) 558* 2 
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-C- 
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color 50-f 1 155-( l) 12- 2 57 ( 2) 459-( 2) 478-( 2) 478 ( 2) 505 ( 2) 504.( 2) 

colorBlack 25*( 1) 42 ( 1) 42 ( 2) 

colorOkGray 24»( l) 41 ( 2) 

colorGray 25*( 1) 12 ( 2} 40 ( 2) 

colorLtGray 

colorlihjte 

Commit 

CREftTE 



11 2- < 




208* ( 


1 


50* 




155' 


1 


25- 




42 


1 


24» 




41 


2 


25* 




12 


2 


22' 




59 


2' 


21* 




42 


1 


142" 




158* 


1 


55- 




72- 


1 


5' 


2 


97- 


2 


507 


2 


556* 


2 


623 


2 


682* 


2 


747 


2^ 


760 


2 


29* 


ij 


545 


2) 



777 ( 2} 
506- 2 



58 


2 


504 


2] 


























174* 


1 


475- 


2 


558- 


2 


638* 


2 


















100' 


1 


125* 


1 


158* 


1 


154- 


1 


170- 


1 


185 


1 


192 


1 


201 


1) 


105 


2; 


173 


2 


177 


2 


200 


2 


209 


2 


219- 


2 


225 


2 


503 


2) 


543 


2 


545 


2 


425 


2 


452' 


2 


456 


2 


519* 


2 


531 


2 


617-1 


2) 


685 


2 


695 


2) 


705*( 


2 


709 


2 


717 ( 


2 


727- 


2J 


732 ( 


2. 


744 ( 


2 



createBoxSelect i 29 
-D 
DrauFrame 59*( 1) 54»( 2} 569 ( 2) 411 ( 2 



Draw 62-{ 1) 85»( 1) 28-f 2| 156-( 2) 141 ( 2) 



-E- 

EachActualPart 86*{ 1) 150-( 2) 606 ( 2} 

EachVirtualPart 160-{ 1) 176*( 1) 150 ( 2) 145 ( 2) 605-( 2) 670-( 2) 

' Fields _18*( 2) 110*{ 2) 112 { 2) 232-( 2) 254 ( 2) 552-( 2) 554 ( 2) 466-( 2) 468 ( 2) 549-( 2} 

Fil terAndDo 
Free 

-H- 

Highl ight 104*( 1) 167 ( 2) 179 ( 2) 241«( 2) 

-I- 

InitBoxLlst 
Inval Box 



18*( 


2' 


110»{ 


2^ 


112 


2 


551 ( 


2 


650-( 


2 


652 


2 


144-( 


V 


495- { 


2 


532 


2 


559-( 


2 


542 ( 


2J 







e9-f 1) 196'( 2) 748 (2) 

78«{ 1) 187-{ 2) 272 ( 2) 274 ( 2) 428 ( 2) 489 ( 2) 596 ( 2) 



" kind 167 { 1) 244 ( 2) 522 ( 2) 453-C 2) 624-( 2) 624 ( 2) 657-( 2) 659-( 2) 659 ( 2) 

" LRect 49 (1) 67 ( 2) 257 ( 23 562 ( 2) 405 ( 2) 758 ( 2) 

-M- 

HouseMove 107-( 1) 127»( 1) 254-( 2) 561-( 2) 



107-( 


1) 


127* ( 


80- 


1 


159-( 


108-( 


1) 


128-( 



HousePress 80-( 1) 159-( 2) 

HouseRelease 108-( 1) 128-( 1) 282-{ 2) 4D2-( 2) 



"''neuBox 151 ( 1) 525-f 2) 534 f 2) 542 ( 2) 565 f 2) 564-f 2) 591 f 2} 596 f 2} 607 (2) „^ , ^, 

NsuCommand 111*( 1) 207-( 1) 292-{ 2} 503-( 2) 507-( 2) 510-{ 2) 510 { 2) 754-( 2) 760-( 2) 764.( 2) 



151 ( 


1] 


525-f 
207«( 


2) 
1) 


534 f 
292- ( 


2) 
2) 


111* 


1 


764 


2 










184* 


1 


690 •( 


2, 


693-( 


21 


194- 


1 


714-f 


2 


717- 


2 


90* 


1; 


206* ( 


2) 


209-( 


2J 



NeuDocHanager 

NeuUindou 

NoSelection 

-0- 
01 dBox 151 ( 1) 555-( 2) 593 ( 2) 

-P- 
PaintHandles 56*f 1) 65»f 2) 247 f 2) 

Perform 143-{ 1) 159-( 1) 175-( 1) 483-( 2) 569-( 2) 646-( 2) 

-0- 
QuickDrau 16*( 1) 

-S- 

shapeLRect 



-T- 
TBox 

TBoxDocflanager 
TBoxProcess 
TBoxSe! ect ion 
TBoxVleu 

TBoxUindou 
TClearAllCmd 
TCol or 
TConfmand 

TCreateBoxSelect 117*1 ij 124 \ ij 173 \ 5) 534-( 2) 557 ( 2) 543 ( 2) 

TDocManager 185 ( 1) 189 ( l) 690 ( 2) 709 (2) ^ , ^, ^,, , ^, 

TOupl icateCmd 150«( 1) 155 ( 1) 507 2) 517-( 2) 520 { 2) 551 ( 2) 

TLJst "" '"" ~ 



2) 


572 ( 


2) 


576 ( 


2) 


2 


298 


2 


564 > 


2 


2 


570 1 


2) 


575 ( 


2) 




292 ( 2) 458 ( 2) 468 ( 2) 531 ( 2) 551 ( 2) 



TObject 
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TV leu 66 f 1) 112 ( 2) 

TUindou 194 { 1) 198 ( l) 714 ( 2) 732 ( 2) 

-U- 
U7Boxer 
UABC 

uBlack 56»( l) 502 ( 2) 520 ( 2 

uClearAll 58* ( 1) 759 ( 2} 774 f 2 

uDkGray 55* ( 1) 502 ( 2) 520 ( 2' 

UDrau 17*{ 1) 

uDupl Icate 57»( 1) 506 ( 2) 521 ( 2) 



5- 


1] 


18* 




56* 


1 


58* 


1 


55* 


l' 


17* 


1 


57» 


1 


15* 


l' 


54- 


1 


55* 


1^ 


10* 


I'l 


52* 


ij 



IFonl 

uGrav 

uLtGray 

UObject 

uUhite 52*{ l) 502 ( 2) 504 ( 2) 520 ( 2) 



502 ( 2) 520 ( 2) 

502 ( 2) 520 ( 2) 

502 ( 2) 504 ( 2) 

• End Xref: 72 id's 472 references [398552 bytes/4927 id* s/39940 refs] 



[Segment 11] 

Advanced Commands 

with 

Cut & Paste 

Special Note: The sty/e and structure of this segment differs from tfie 
previous ten. 



Purpose of this segment: 

This segment presents three separate but related topics completing the 
self— paced introduction to the Toolkit. 

1. Implementing cut, copy, and paste within Boxer. 

2. Creating command objects from non— menu events, such as mouse and key 
events. 

3. Responding to the tab and clear keys. 

How to use this segment: 

This is the last segment in the self-paced introduction to Boxer. Try to 
follow the discussion, and carefully study the sample program. 



THE CLIPBOARD 

The clipboard Is used for intraprocess data transfer and interprocess 
communication. The clipboard only contains one piece of information at a time but 
it has 3 parts, all containing different representations of that information. 

1) application specific part 

If a ToolKIt application created the current contents of the clipboard then 
this representation is a minimum Toolkit document. It contains at least a 
window, panel, view, and selection. If a non— Toolkit application created 
the current contents of the clipboard then this part is specific to that 
application. This part of the clipboard contains the most information about 
its contents. 



2) universal picture part 

This is a QuickDraw picture of of the contents of the clipboard. There are 
no easily accessible semantics associated with a picture. However, 
LisaDraw or the graphics building block will be able to parse a picture into 
Its component graphical objects. 

3) universal text part 

This is a text data format understood by all desktop applications. It 
contains the text and text descriptors, such as font format margin, and 
tab information. 



Every time you cut to the clipboard as many representations as possible are 
generated. The application is responsible for generating the application specific 
portion (as you will learn). The ToolKit generates the universal picture. If you use 
the Text Building Block it will automatically generate universal text for any text 
that is cut or copied. 

Every time you paste from the clipboard you may choose which one of the 
representations you want to paste. Whenever possible this will be the Application 
specific representation. 



FLOW OF CONTROL FOR CUT AND PASTE 

Cut, Copy, and Paste are unique commands because they read from or wite to 
the clipboard. Since there is magic that must be performed to deal with the 
clipboard, there are two subclasses of TCommand that must be subclassed - 
TCutCopyCommand (for cut and copy) and TPasteCommand (for paste). The flow 
of control is the same as other commands except that applications do not 
reimplement Perform. Instead they reimplement OoCutCopy or DoPaste. Both 
take as parameters the command phase and the clipboard's selection. For ToolKIt 
cut and paste the selection is used to access all the objects on the clipboard. From 
the selection it Is easy to get to the view, window, or panel. 

The Commit, Free, and all the filter methods can be implemented using 
techniques already discussed. This segment will implement cut copy, and paste with 
filters becuase it is easier, and because it provides another good example of how to 
use filters. Do not worry about freeing any of the objects placed on the Clipboard, 
the Clipboard will clear itself on every cut. 

IMPLEMENTING CUT AND COPY 

To implement cut and copy make a subclass of TCutCopyCommand and 
override DoCutCopy. On the cfoP/^aseDoCuXCopy must create a new view and 
selection on the clipBoard, then move into it the data being cut or copied. To do 
this a new view of type TBoxView is created (with boxLlst and boxes), and passed to 
{TBoxSelection.}CREATE. ClipSelection, which is a dummy object. Is freed and 
replaced with the new selection. On a cut the data must be removed from the 



document. If filters are used then Conr^mlt and EachVlrtualPart must check 
SELF.IsCut since copying doesn't change the document. As an interesting example 
8Boxer's implementation of the cut and copy filters implements both 
EachVirtualPart and FllterAndDo. 



IMPLEMENTING PASTE 

To implement paste make a subclass of TPasteCommand and override 
{TPasteCommand.)OoPaste. Instead of freeing and replacing clipSelection with a 
new selection (as in cut and copy), we retain it. It now points to the data we want 
to paste. For this section we are only interested in pasting from other Boxer 
documents. Therefore we will only paste from clipSelection when it Is of class 
TBoxSelectlon. It is possible to paste from other fbolKit applications but that is 
left for another segment. It is also easy to paste from universal pictures. See the 
appendix at the end of this segment on pasting from other applications. To paste 
from ClipSelection: 

1. On the c/oP/fase iirzX check if it is of class TBoxSelection using the 
ToolKit function, InClass, as follows: 

IF lnciass<clipseiection, TBoxSelection) then 

This function returns TRUE only if clipSelection Is an instance of 
TBoxSelection, or an instance of one of Its subclasses. 

2. If ClipSelection is of some other type, put up the Can't Do /^alert. 

3. Otherwise simply copy the data from the view that clipSelection points 
to. 

4. Now you must properly handle the coordinates of the pasted box, since it is 
always located in the upper left hand corner of the Clipboard. For Boxer 
we want to paste the box centered around the last place the mouse was 
pressed (if no box was selected), or centered within the selected box. 
TView has a field, clfckLPt, which contains the location of the last 
mouse press. 

5. Again, once the box has been copied into the document the do, undo, and 

redo phases handle the selection, highlighting, and invalidation using 
existing techniques. 



FLOW OF CONTROL FOR COMMANDS NOT ORIGINATED FROM THE MENU 
BAR 

In this section we are going to convert the existing mouse events into 
command objects. We will also respond to two keyboard events, one which will be 
converted into a command. 

When implementing keyboard or mouse events as commands, we need a 
mechanism for installing the new command object since we will not be in 
NewCommand when the event occurs. 



{window.)PerformCommand takes as argument the command object to be 
performed. Calling PerformCommand with a command object produces the same 
result as returning a command object to NewCommand. As you can glean from the 
flow of control for commands [see segment 9], PerformCommand is the next 
method called after NewCommand. 



FLOW OF CONTROL FOR MOUSE COMMANDS 

To convert our existing mouse events to commands we implement command 
classes for the mouse events we want to be undoable. The identifiable mouse events 
that edit the document are: box move ^x\^ box create. Upon mouse release in both 
of these events we want to create an appropriate command object. It will perform 
the event as a command, and pass the command object to PerformCommand. 

IMPLEMENTING MOUSE COMMANDS 

For box move, each mouse move event edits the document. The original state 
is saved in {select ion.}anchorLPt. With a little forethought, it is easy to see that 
box move %\\^\x\^ be an unfiltered command. The original state is simple to 
remember and restore, and doing the command with a filter would be more 
complicated than doing it without one. The c/oPbaseior this command does nothing 
since the mouse move code has already edited and properly displayed the document, - 
The undo and redo phases should move the box to the correct location and invalidate. 

Suggestion: Move the code in {TBoxSelection.jMouseMovc that moves a box to a 
new method of TBox. Then call the new method from both MouseMove and 
{TMoveBoxCmd.}Perform. 

For box create, the mouse move and mouse release code already act as a 
filter through which the document is viewed. The newly created box is not inserted 
into boxList until the end of {TBoxCreateSelection.}MouseRelease. By replacing the 
InLast(SELF.box) line in MouseReiease with a call to PerformCommand, we can 
easily create a filtered command. This command shall be implememnted as 
TCreateCmd. It turns out that TCreateCmd is very similar to TDuplicateCmd. 

FLOW OF CONTROL FOR KEY COMMANDS 

Keyboard events go directly from the process to {selection.JOoKey. DoKey 
then farms it out to the appropriate method of the selection. For our example, 
there is no need to override DoKey, since the default mapping of keys to methods is 
acceptable. We will reimplement {selection.}KeyTab and {select ion.jKeyClear, each 
of which is called by DoKey depending upon the key pressed. Since striking the tab 
key will not edit the document (it only changes the selection), we will not turn it 
into a command. We will, though, make the clear key event a command. In 
addition, we will also provide a menu item that is equivalent to striking the clear 
key. 

selection.DoKey 

case of 



enter, arrowV!^^\ 

c/eary.^y\ 

bctckspdceVffj\ 

shift backspace. 

returnk^y. 

tad key: 

otherwise 



selection.KeyEnter 
selection.KeyClear 
selection.KeyBack 
se I ect ion.KeyForwar d 
selectlon.KeyReturn 
select ion.KeyTab 
select ion.KeyChar 



IMPLEMENTING THE TAB KEY 

{TSelection.}KeyTab is the selection method that responds to the tab key. The 
tab key is not undoable, and does not need a connmand object, but implennenting it is 
an interesting excercise in list managment. Note: Beware of virtual objects, 

IMPLEMENTING THE CLEAR KEY 

{TSelection.}KeyClear responds to clear key events. KeyClear calls 
PerformCommand with a command object that implements clearing a box. This 
same command class is also used for the menu version of clear. The semantics of - 
cleardire close enough to ^^rto be a subclass of TCutCopyCommand, 



OTHER CHANGES THAT WERE REQUIRED 

Changes to NewCommand and CanDoCommand for cut paste, and clear. 

Added {TBox.}MoveBox to allow sharing of box move code between 
{TBoxSelection.}MouseMove and {TMoveBoxCmd.}Perform. 

Reimplemented TDupMcateCmd as a subclass of TCreateCmd. Introduced a 
new method, UpdateSelection, that updates the selection on undo and redo 
phases. 

Defined two new command constants, uCreateBox and uMoveBox. 



Appendix A 

Cut and Paste between Applications 



PASTING FROM ANOTHER TOOLKIT DOCUMENT 

Works as described above. 

PASTING FROM A NON-TOOLKIT DOCUMENT 

When clipSelection = NIL, or clipboard.hasView = FALSE, there will always 
be a universal picture to paste fronn and there will often be universal text to paste. 
The type of your application and the context being pasted into will deter nnine which 
one is appropriate. 

If your application is largly textual then paste the universal text. If your 
application is strictly graphical and has no text then paste fronn the universal 
picture. Universal text only exists when something textual was cut or copied. But a - 
universal picture is always generated. If universal text is present and you are capable 
of taking text then paste it instead of the picture. 

PASTING A UNIVERSAL PICTURE 

Do not just grab the handle, since the picture it points to is in the clipboard's 
heap. That heap will be unbound from the applications data space Immediately after 
the paste, thus invalidating the handle. Instead, copy the picture onto the document's 
heap. There are several ways to copy a picture, the simplest is: 

1. Save the clipboard heap. The global variable, theHeap, refers to It. 

tc«pHeap <- thcHeap; 

2. Reset the global heap variable, theHeap, to the document's heap. 

setHeapCSELF.neap); 

3. Open a picture to copy the clipboard picture into. 

nyPictuic := OpenPictuie(thisRect); 

4. Draw the clipboard picture. This effectively copies the picture. 

DraNPictuie(pic); 

5. Close the picture. 

CloscPicture; 
5. Restore theHeap to the clipboard heap. 
$etHeap(tefipHeap); 



PASTING UNIVERSAL TEXT 

The Text Building Biock pastes from universal text whenever clipSe lection - 
NIL and universal text is present 




m^^ms^m^^^^^&^^^mm^i 
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; P8B0XER. TEXT 

1 

3 

2500 
$-»BOOT-TK/PABC 



; Apple building block phrasa filas can be included here 

1000 
SBoxer 

; Other application alerts can be included here, numbered betueen 1001 and 52000 



1 
$-»800T-TK/PABC-File/Print 

2 

Edit 

Undo Last Chanae*205 

Cut/X»202 
Copy /C "201 
Paste/V»205 
Oupl icate/DIOll 

Clear Box '208 
Clear All/Z»1012 

3 

Shades 
UhitenOOe 
Light Gray»1007 
Gr3y»1008 
Dark Gray»1009 
BlacklOlO 

S 

$-»800T-TK/PABC~Page Layout 

99 
$-«BO0T-TK/PABC~Debug 

100 

$- •BOOT - T K /P ABC~Buzzuo rds 

Create Box •2000 

Hove 6ox«2001 
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PROGRAM H8Boxer; 






USES 

{$U UObject 


) 


UObject, 


{$IFC libraryV«r$lon <- 20) 

{$U UFont} UFo 
{$6NDC] 


$U OuickDrau 
■$U UDrau 
:$U UftBC 


■ 


QuickDrau 

UDrau, 

UABC. 


{$U USBoxer 


) 


USBoxer 


CONST 






phraseVersion ■ 


1 




BEGIN 







ont, 



process : ■ TBoxProcess. CREATE; 
process. Connence(phraseVersion); 
process. Run; 
process. Compl ete( TRUE) ; 



END. 
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UBBaXER.TEX7 



Poge 



1 — 

2 — 
5 - 

4 — 

5 - 

6 — 

7 - 

8 — 

9 — 

10 - 

11 -- 

12 - 
15 - 

14 -- 

15 - 

16 - 

17 -- 

18 -- 

19 — 

20 " 

21 - 

22 - 
25 — 

24 - 

25 — 

26 - 

27 - 

28 — 

29 — 

50 — 

51 — 

52 -- 
55 - 

54 — 

55 — 

56 — 

57 — 

58 — 

59 - 

40 — 

41 - 

42 — 
45 — 

44 — 

45 - 

46 — 

47 - 

48 - 

49 - 

50 -- 

51 - 

52 -- 
55 -- 

54 - 

55 — 

56 - 

57 - 

58 -- 

59 -- 

60 — 

61 — 

62 — 
65 — 

64 — 

65 — 

66 — 

67 - 

68 — 

69 — 

70 - 

71 - 

72 - 
75 — 

74 — 

75 - 

76 - 

77 - 

78 - 

79 - 

80 — 

81 — 

82 -- 
85 - 

84 - 

85 - 

86 — 

87 — 

88 - 

89 — 

90 - 

91 - 

92 - 
95 - 

94 — 

95 - 

96 - 

97 - 

98 - 

99 - 

100 -- 

101 - 

102 - 
105 - 

104 - 

105 - 

106 - 

107 - 

108 - 

109 - 

110 - 



[This LisaBoxar sanpl* iiv>l*<wnts cut and pasta, aova and craata undo, Tab and cl aar kays with undo} 
{Copyright 1985, Appl« CoMputar Inc.} 

UNIT USBoxar 

INTERFftCE 

USES 



{$U UObJact} 



UObJact, 



{SIFC I IbnryVarsion <- 20} 
'^" — ' UFont, 



QuickC rau, 

UDrau, 

UABC; 



f$U UFont} 
{$£NOC} 

$U QuickDraw} 
SU UDrau} 
;$U UABC} 

CONST 

colorUhita - 1; 
colorLtGray ■ 2: 
colorGray - 5; 
col orOkGray - 4; 
colorBIack - 5; 

{ sal act ion kinds } 
boxSalactionKind - 1; 
craataBoxSalactlonKind - 2; 

{ Manus } 
uUhita - 1006; 
uLtGray • 1007; 
uGray ■ 1008; 
uDkGray • 1009; 
uBlack « 1010: 
uDupl icata > 1011; 
uClaarAll - 1012; 

{ Iinpl ied commands } 
uCreateBox « 2000; 
uHoveBox ■ 2001; 

TYPE 

TColor <■ colorUhita. . colorBIack; [color of a box} 

{Nau Classas for this Application} 

TBox - SUBCLASS OF TObJact 



(Variablas} 
shapeLRact: 
color 



LRact; 
TColor 



f Great ion/Oast ruct ion} 
FUNCTION TBox. CREATE(objact: TObJact; itsHaap; THaap): TBox; 

{ Display } 

PROCEDURE TBox. Draw; 
PROCEDURE TBox. OrauFrana; 

{ Editing and Display } 

PROCEDURE TBox. HovaBox(boxViau: TBoxVieu; deltaU^t: LPoint); 

{ Highlighting support } 
PROCEDURE TBox. Pa intHandl as; 
END; 



TBoxUiau - SUBCLASS OF TVieu 



{Variablas} 
boxList: 



TList; 



(Craation/Dast ruction} , . .„ .x 

FUNCTION TBoxViau.CREATE{objact: TObJact; itsHaap: THaap; ItsPanal: TPanal; itstxtant: LRact) 

: TBoxViau; 

FUNCTION TBoxVtau.Boxiith(LPt: LPoint): TBox; 

( Inval idat ion} 
PROCEDURE TBoxViau. InvalBox(inval LRact: LRact); 

PROCEDURE TBoxViau. Hous«Pr*ss(iaousaLPt: LPoint); OVERRIDE; 

(Display) 

PROCEDtffiE TBoxViau. Drau; OVERRIDE; 

PROCEDURr TBoxViau. EachActualPart(PROCEDl«E DoToObJact(fiI taradOb J: TObJact)); OVERRIDE; 



{initialization} 
PROCEDURE TBoxViau. In itBoxLlst( itsHaap: THaap); 
FUNCTION TBoxViau. NoSal act ion: TSalactioo; OVERRIDE; 
END: 

TBoxSalaction - SUBCLASS OF TSalaction 

{ Variables} 
box: TBox; 

{Craat ion/D«st ruct ion} 



FUNCTION TBoxSalactioaCREATE(ob1act: TObiaet; ItsHaap: THaap; itsVlevn TViau; itsBox: TBox; 

ItsKlnd: INTEGER; itsAnchorLPt: LPoint): TBoxSalaction; 

PROCEDURE TBoxSal act ioaHighlight(h ighTrans it: THighTranslt); OVERRIDE: 



{Drauing - par pad} 
PROC 

{Selection - pr*- oad} 
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111— PROCEDURE TBoxS«l»ctioattou$»«ov»(«iou$«Lm: LPolnt); OVERRIDE; 

112— PROCEDURE TBoxSal act ioa nou$*R*l Msr, OVERRIDE: 
115 — , 

114 — {Conmand Dispatch} 

115— FUNCTION TBoxSal act ion. N*uCoinmand(cmdNuinber TCmdNunbar): TConmand; OVERRIDE; 

lie— FUNCTICW TBoxSalactioa CanDoCoiiiiiand(cffldNuinber. TCmdNumber VAR chackit: BOOLEAN) 

117 — : BOOLEAN; OVERRIDE; 

118 — END; 

119 — 

120 — 

121 — TCraataBoxSalaction • SUBCLASS OF TSalaction 

122 — 

125 — {Variables) 

124 — box: TBox; 

125 — 

126 — {Craat lon/Dastruct ion) 

127— FUNCTION TCraataBoxSalact ioa CREATE(ob1act: TObJact; itsHaap: THeap; itsVieu: T^^ieu; 

128 — itsAnchorLPt; LPoint): TCreataBoxSal act ion; 

129 — 

150 — (Sal act ion - par pad) 

151 — PROCEDURE TCraataBoxSalact ion. Mou«aHova(mou$aLPt: LPoint); OVERRIDE; 
152— PROCEDURE TCraataBoxSal act ion. HousaRalaasa; OVERRIDE; 

155 — END; 

154 — 

155 - , 

156 — { This cooMand racolors tha salactad box and is not undoabla 

157 — should it instaad ratum an instanca of TCownand } 

158 — TRacolorCmd • SUBCLASS OF TConmand 

159 — Box: TBox; .? - . 

140 — color TColor, 

141 — 

142 — {Craation} 

145 — FUNCTION TRacolorCmd. CREATE{ Ob lact: TObJact; itsHaap: THaap; itsCmdNumbar. TCmdNumbar, 

144 — itsVlaw: TBoxViaw; itsBox: TBox; itsColor TColor): TRacolorCmd; 

145 — 

146— PROCEDURE TRacolorCmd. Par fonn(cmdPha$a: TCmdPhasa); OVERRIDE; 

147— PROCEDURE TRacolorCmd. FilterAndDo( actual Ob J: TObJact; 

148 — PROCEDURE DoToObject( f 11 teredObJ: TObject)); OVERRIDE; 

149 — END; 

150 — 

151 — 

152 — TCraataCffld > SUBCLASS OF TConmand 
155 — 

154 — {Variablas) 

155 — neuBox; TBox; 

156 — 

157 — {Creation and Dastructlon) 

158— FUNCTION TCraataCffld. CREATE( Ob jact: tObJact; itsHaap: THaap; itsCmdNumber TCmdNumbar. 

159— itsViau: TBoxViau; itsBox: TBox): TCraataCmd; 

160— PROCEDURE TCraataCmd. Cown it; OVERRIDE; 

161— PROCEDURE TCraataCmd. PerforiKcmdPhasa: TCmdPhasa); OVERRIDE; 

162— PROCEDURE TCraataCffld. UpdateSel act ion(thisSel act ton: TBoxSal act ion; cmdPhasa: TCrndPhase); 
165— PROCEDURE TCraataCmd. EachVirtualPart{PROCEOUR£ DoToObjact(filtaradObj: TObjact)); OVERRIDE; 

164 — END; 

165 — 

166 — 

167 — { This command dupl icates tha salactad box and is undoabla ) 

168 — TDupl icattCffld - SUBCLASS OF TCraataCmd 

169 — 

170 — {Variables) 

171 — oldBox: TBox; 

172 — 

175 — {Creation) 

174— FUNCTION TDupl icataCmd. CREATE( object: TObject; itsHeap: THaap; ItsCmdNumber TCmdNumbar 

175— ItsView: TboxViau; itsBox: TBox): TDupl icataCmd; 

176 — 

177 — {Command Execution) 

178— PROCEDURE TDupl icataCmd. UpdateSel ection{thi$Select ion: TBoxSel act ion; cmdPhasa: TCmdPhase); 

179 — OVERRIDE; 

180 — END; 

181 — 

182 — 

185 — TBoxCutCopyCmd - SUBCLASS OF TCutCopyCommand 

184 — 

185 — {Variables) 

186 — selTopLaft; LPoint; 

187 — box: TBox; 

189 — {Creation} 

190 — FUNCTION TBoxCutCopyCmd. CREATE{ object: TObject; itsHeap: THaap; itsCmdNumber. TCmdNumfaer 

191 — ItsVieu: TVieu; isCutCmd BOOLEAN; itsBox: TBox): TBoxCutCopyCmd; 

192 — 

195 — {Command Execution) 

194— PROCEDURE TBoxCutCopyCmd. Commit; OVERRIDE; 

195— PROCEDURE TBoxCutCopyCmd. DoCutCopy(cl ipSel act ion: TSelection; deleteOriginal: BOOLEAN; 

196 — cmdPhase: TCmdPhase); OVERRIDE; 

197— PROCEDURE TBoxCutCopyCmd. EachVlrtuaIPart(PROCEDURE DoToObject(fiIteredOb J: TObject)); OVERRIDE; 

198 — END; 

199 — 

200 — 

201 — TBoxPastaCmd - SUBaASS OF TPasteConmand 

202 — 

205 — {Variables) 

204 — pastaH: LONGINT; 

205 — pasteV: LONGINT; 

206 — pasteBox: TBox; 

207 — 

208 — {Creation and Destruction) 

209— FUNCTION TBoxPastaCmd. CREATE( object: TObiect; itsHeap: THeap; itsCmdNumber. TCmdNutnber, 

210 — ItsVieu: TBoxVieu; itsH, itsV: LONGINT): TBoxPastaCmd; 

211— PROCEDURE TBoxPastaCmd. Free; OVERRIDE; 

212 — 

215 — {Command Execution) 

214— PROCEDURE TBoxPastaCmd. Commit; OVERRIDE; ^^ ,^ ,-^ , 

215— PROCEDURE TBoxPastaCmd. OoPa$te(cl ipSelect ion: TSelection; pic: PicHandle; cmdPhasa: TCmdPhase); 

216 — OVERRIDE; 

217— PROCEDURE TBoxPastaCmd. EachVirtualPart{PROCEDURE DoToObjact(fiIteredObj: TObject)); OVERRIDE; 

218 — END', 

219 — 

220 — 
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221 — { This conmand dupl icates th« s*I*ct«d box and is undoable } 

222 — TClaarAllCmd - SUBCLASS OF TCommand 
225 — {Varlablas} 
22A ~ kind: INTEGER; 

225 — 

226 -- {Cr»atlon) 
227— . FUNCTION TClMrtllCnid CREATE(ob JBCt: TObJtct; ltsH«ap: THaap; ItsCmdNumbar TCmdNurnber; 

228 — ItsVlau: fboxVlau): TCltarAllCmd; 

229 ~ 

230 — ( Conmand Exacut ion} 

2S1 ~ PROCEDURE TCI •arAllCMd.Coim if, OVERRIDE; 

252— PROCEDURE TCI aarAll Dad. Par fonKcwdPhasa: TCwdPtiase) ; OVERRIDE; 

235— PROCEDURE TCl»artnCi«d.EachVirtuaIPart(PROCEDURE r KM) j«ct{f 11 ttredObj; TObject)); OVERRIDE; 

254 — END; 

255 — 

256 — 

257 — TClaarCnd - SUBCLASS OF TBoxCutCopyCiad 

258 — , , 

259 — {Craation} 
240— FUNCTION TClaarCud. CREATE(ob jact: TObjact; ItsHaap: THaap; itsCmdNumbar TCmdNurnber 

241 — ItsViau: TBoxViau; ItsBox: TBox): TCI aarCmd; 

242 — , , 
245 — [Command Exacutlon] 
244— PROCEDURE TCI aaiCmd. ParfonaCcndPhasa: TdadPhasa); OVERRIDE; 

245 — END; 

246 — 

247 — 

248 — THovaBoxCmd - SUBCLASS OF TConmand 

249 — 

250 — (Varlablas} 

251 — hOffsat: LONGINT; 

252 — vOffsat: LONGINT; 
255 — movadBox: TBox; 

254 — 

255 — (Craatlon) 
256— FUNCTION TMowaBoxCmd. CREATE( object: TObjact; itsHaap: THaap; ItsCmdNumbar TCmdNurnber, 

257 — ItsViau: TBoxViau; itsBox: TBox; itsHOffsat, itsVOffsat: LONGINT) 

258 — : THovaBoxCmd; 

259 — 

260 — (Command Execution} 

261— PROCEDURE THovaBoxCmd. Parfoni)(ciKff>hasa: TCmdPhasa); OVERRIDE; 

262 — END; 

265 — 

264 — 

265 — TBoxProcass • SUBCLASS OF TProcass 

266 — 

267 — {Craatlon/Dast ruction} 

268 — FUNCT ION TBoxProcass. CREATE: TBoxProcass; 
269— FUNCTION TBoxProcass, NauDocHanager( vol LmwPre fix: TFilaPath; opanAsTooI: BOOLEAN) 

270 — : TDocHanager; OVERRIDE; 

271 — END; 

272 — 
275 — 

274 — TBoxDocHanagar ■ SUBCLASS OF TDocHanager 

275 — 

276 — {Creation/Destruction} 

277— FUNCTION TBoxDocHanagar. CREATE( object: TObjact; itsHaap: THaap; itsPathPrefix: TFilaPath) 
278 — : TBoxDocHanager; 
279— FUNCTION TBoxDocHanager. NaulJindou( heap: THeap; umgrlD: TUindouID): TUindou; OVERRIDE; 

280 — END; 

281 — 

282 — 

285 — TBoxyindou > SUBCLASS OF TUindou 
284 — 

285— {Craatlon/Dest ruction} 

286— FUNCTION TBoxWindou, CREATE{ object: TObjact; itsHaap: THaap; ItsWmgrlD: TBindouID): TBoxWindou; 

287 — 

288 — (Document Creation} 

289— PROCEDURE (TBoxWindou. } 81 ankSt at lone ry; OVERRIDE; 

290 — 

292— FUNCTION TBoxWindou. NeuCom«and(cmdNufflber TCmdNurnber): TCommand; OVERRIDE; 

293— FUNCTION TBoxWindou. CanDoCommancKcmdNumber TCmdNurnber, VAR check It: BOOLEAN): BOOLEAN; OVERRIDE; 

294 — END: 

295 — 

296 — 

297 — 

298 — IHPLEHENTATION 

299 — 
_ 500— ($1 U8Boxer2, text} 
2 1 — (U8B0XER2} 

2 2 — 

2 5 — HETHODS OF TBox; 

2 4 — 

2 5 — A FUNCTION TBox. CREATE( object: TObjact; itsHaap: THaap): TBox; 

2 6 0- A BEGIN , , 

2 7— ($IFC fTraca}BP{ll);($ENDC} 

2 8 — SELF :• NauOb ject( itsHeap, THISCLASS); 

2 9 — WITH SELF 00 

2 10 1- BEGIN 

2 11 — shapeLRact : - zaroLRact; 

2 12 — col or : • col orGray, 

2 15 -1 END; ' 

2 14— ($IFC fTraca}EP;{$EN0C} 

2 15 -0 A END; 

2 16 — 

2 17 — ($IFC fDebugMathodsl , ^, 

2 18 — A PROCEDURE TBox. Fiald$( PROCEDURE Fiald(namaAndTypa: S255)); 

2 19 0- A BEGIN 

2 20— FieldCshapeLRect: LRacf); 

2 21— Fiald{- color INTEGER); 

2 22— Fiald("); 

2 25 -0 ft END; 

2 24 — {JENOC} 

2 25 — 

2 26 — 

2 27 — (This draus a particular box} 

2 28 — A PROCEDURE TBox. Orau; 

2 29 — VAR IPat: LPattam; 

2 50 0- A BEGIN 
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/■ ' _ — __ , — __ , — , — 

2 51 — £$IFC fTr«c«)BP(10);{$ENDC) 

2 32 — PcnNorml; 

2 55 — 

2 54 — IF LR»ctIsVlsibl*(SELF. $h«p<rt.RKt} THEN (this box riMds to b« draun} 

2 55 1- BEGIN 

2 56 — {G»t a Ouickdnu pattern to raprasant tha box's color} 

2 57 2- CASE SELF, col or OF 

IPatlihita; 



colorWhita: 




coloTttGray. 




col orCray: 




col orOkCray: 




col oifil ack: 




OTHERWISE 




END; 





1 Pat Lt Gray, 

IPatGray, 

IPatDkGray 

1 Pat Black; 

IPatUhita; {this case should not happen} 



2 58 

2 59 

2 40 

2 41 

2 42 

2 45 

2 44 

2 45 

2 46 — {Fill tha box uith tha pattam, and drau a frana around it} 

2 47— FiriLRact(SELF. shapeLRect, IPat); 

2 48— FrafflaLRact(S£LF. shapaLRact); 

2 49 -1 END; 

2 50 — {$IFC nraCB}EP; {SENDC} 

2 51 -0 A END; 

2 52 — 

2 55 — { Frama a particular box} 

2 54 — A PROCEDURE TBox. DrauFrama; 

2 55 0- A BEGIN 

2 56— (JIFC fTraca}BP(10);{$ENOC} 

2 57 — PanNormal; 

2 58 — PanMode(PatXOr); 

2 59— FrameLRect( SELF. ShapaLRact); 

2 60 — {$IFC nraca}EP; {$ENDC} 

2 61 -0 A END; 

2 62 — 

2 65 — 

2 64 — A PROCEDURE TBox. HovaBox(boxViau: TBoxViau; daltaLPt: LPoint); 

2 65 0- A BEGIN 

2 66— {$IFC nraca}BP(10);{$ENOC} 

2 67 — UITH SELF DO 

2 68 1- {$H-} BEGIN 

2 69 — boxVleu. InvalBox( shapaLRact); 

2 70— Of fsatLRactC ShapaLRact. daltaLPt. h. daltaLPt. v); 

2 71 — boxViaw. InvalBox( shapaLRact); 

2 72 -1 {$H*} END; 

2 75 — {SIFC fTraca}EP; {SENDC} 

2 74 -0 A END; 

2 75 — 

2 76 — 

2 77 — {This calls tha DoToHandla Procedure once for each handle LRect; user of this method nust 

2 78 — set up the pen pattern and node before calling} 

2 79 — A PROCEDURE TBox. Pa IntHandl as; 

2 80 — VAR hLRect, 

2 81 — ShapeLRect: LRect; 

2 82 — dh, dv: LONG INT; 

2 85 — 

2 84 — B PROCEDURE MoveHandleAndPalnt(hOf fset, vOffset: LONGINT); 

2 85 0- B BEGIN 

2 86 — Of fset LRect (hLRect. hOffset, vOffset); 

2 87— P»lnt LRect (hLRect); 

2 88 -0 B END: 

2 89 — 

2 90 0- A BEGIN 

2 91— fSIFC nrace}BP(10);{$ENDC) 

2 92— IF NOT EinptyLRect( SELF. ShapeLRect) THEN 

2 95 1- BEGIN 

2 94 — Set LRect (hLRect, -5, -2. 5. 2); 

2 95 — ShapeLRect : « SELF. shapeLRect; 

2 96 — UITH ShapeLRect DO 

2 97 2- BEGIN 

2 98 — dh :- right - left; 

2 99 — dv : • bottom - top; 

2 100 — HoveHandleAndPaintdeft. top); {drau top left handle} 

2 101 -2 END; 

2 102 — MoveHandleAndPaintfdh, 0); 



then top right} 
then bottom right} 
^finally bottom left} 



2 105 — HoveHandleAndPaintfO, dv), 

2 104 — HoveHandleAndPaint(-dh. 0); 

2 105 -1 END; 

2 106 — {$IFC fT race} EP; {SENDC} 

2 107 -0 A END; 

2 108 — 

2 109 — END; 

2 110 — 

2 111 — 

2 112 — 

2 115 — METHODS OF TBoxVieu; 

2 114 — 

2 115 — A FIWCTION TBoxVieu. CREATE( object: TObject; itsHeap: THeap; itsPanel: TPanel; itsExtent: LRect) 

2 116 — .• TBoxVieu; 

2 117 0- A BEGIN 

2 118— fSIFC fTrace)BP(ll); {SENDC} 

2 119 — IF object • NIL THEN 

2 120— object :- NeuOb1ect( it sHeap, THISCLASS): 

2 121— SELF :- TBoxVieu( ItsPanel. NeuVieu( object, itsExtent, TPrintHanager. CREATE(NIL, itsHeap), 

2 122 — stdhargins, TRUE)); 

2 125 — {SIFC fTrace}EP; {SENDC} 

2 124 -0 A END; 

2 125 — 

2 126 — 

2 127 — {SIFC fOabuoMethods} 

2 128 — A PROCEDURE TBoxVieu. Fields( PROCEDURE Field(nameAndType: S255)); 

2 129 0- A BEGIN 

2 150— SUPERSELF.Fieldsf Field); 

2 151— FieldCboxList: TLisf ); 

2 152 -0 A END; 

2 155 — {SENDC} 

2 154 — 

2 155 — 

2 156 — {This returns the box containing a certain point} 

2 157 — A FUNCTION TBoxVieu. Boxttith(LPt: LPoint): TBox; 

2 158 — B PROCEDURE FindBox( Ob j: TObject); 

2 159 — VAR box: TBox; 

2 140 0- B BEGIN 
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, . ^ . _ , 

2 141 — box :■ TBox{obj); 

2 142— IF LPtInLR»ct(LPt. box. $htpeLR«ct) THEN 

2 143 — Boxhflth : - box; {last on* found (front one) is ntuxrwd] 

2 144 -0 B END; 

2 145 0- A BEGIN 

2 146 -- {$IFC fTr»c«)BP(ll);{$ENDC} 

2 147 — boxWlth : ■ NIL; 

2 148 — SELF. E»chVlrtu«lP«rt(FlndBox); 

2 149 — {$IFC nnc«)EP: {SEfDC} 

2 150 -0 A END; 

2 151 — 

2 152 — 

2 155 — {This draws th« I ist of boxes} 

2 1S4 — A PROCEDURE TBoxVieu. Drau; 

2 155 — B PROCEDURE OrauBox(obJ: TObJect); 

2 156 — VAR box: TBox; 

2 157 0- B BEGIN . 

2 158 — box :- TBox(obj); 

2 159 — box. Drau; 

2 160 -0 B END; 

2 161 0- A BEGIN 

2 162 — {$IFC fTrac«)BP(10);{$ENDC) 

2 163— SELF. EachVlrtualPart(DrauBox); 

2 164— {$IFC nrace)EP;{$ENOC) 

2 165 -0 A END; 

2 166 — 

2 167 — 

2 168 — A PROCEDURE TBoxVleu. EachActualPart(PROCEDURE DoToObJect(filt«rBdObj: TObJect)); 

2 169 0- A BEGIN ^ . . 

2 170 — {$IFC fTrace)BP(ll):f$ENDC) 

2 171— SELF. boxL ist. EacKDotoObject); 

2 172— {$IFC fTrace)EP;{XENDC) 

2 175 -0 A END; 

2 174 — 

2 175 — 

2 176 — {This determines irtiich type of selection to create) 

2 177 — A PROCEDURE TBoxVieu. MousePress(«ouseLPt: LPoint); 

2 178 -- VAR aSel ect ion: TSelection; 

2 179 — panel; TPanel; 

2 180 — box: TBox; 

2 181 — 

2 182 0- A BEGIN 

2 185 — {$IFC nrace}BP(ll);{$ENOC} 

2 184 — panel : ■ SELF, panel ; 

2 185— panel. Hlghl ight( panel, selection, hOntoOff); {Turn off the old highl iohting) 

2 186 — box ;■ SELF. fioxWith(iaouseLPt); {Find the box the user clicked on) 

2 187 — 

2 188 — IF box ■ NIL THEN - 

2 189 — {Create an instance of TCreateBoxSelect ion) 

2 190 — aSelection :> panel, select ioa Fr*edAndRepIaced6y( 

2 191— TCreateBoxSelection. CREATE(NIL. SELF. heap. SELF, mouseLPt)) 

2 192 — ELSE 

2 193 — {Create an instance of TBoxSel ect ion) 

2 194— aSelection :■ panel, selection. FreedAndRepIacedByf 

2 195— TBoxSel ect ion. CREATEC N IL, SELF, heap, SELF, box, boxSelect ionKind, mouseLPt)); 

2 196 — 

2 197— panel. Highl ight{ panel, selection, hOfHoOn); {Turn on the highl ighting for the neuly selected box) 

2 198— {$IFC fTrace}EP;{$ENDC} 

2 199 -0 A END; 

2 200 — 

2 201 — 

2 202 — A PROCEDURE TBoxVleu. InvalBox( invalLRect: LRect); 

2 203 0- A BEGIN 

2 204— {SIFC fTrace)BP(10);{$ENDC} 

2 205— In$etLRect( invalLRect. -5. -2); 

2 206— SELF, panel. InvalLRect (InvalLRect); 

2 207— {$IFC fTrace)EP. fSEICC) 

2 208 -0 A END; 

2 209 — 

2 210 — 

2 211 — A PROCEDURE TBoxVieu. InitBoxLlst { itsHeap: THeap); 

2 212 — VAR boxLlst: TList; 

2 213 0- A BEGIN 

2 214— {SIFC fTrace)BP(ll):f$ENDC} 

2 215— boxL ist :• TList. CREaTE( NIL itsHeap, 0); 

2 216 — SELF. boxL ist :« boxList; 

2 217 — {$IFC nrace)EP; {SENDC} 

2 218 -0 A END; 

2 219 — 

2 220 — 

2 221 — A FUNCTION TBoxVieu. NoSel ect ion: TSelection; 

2 222 0- A BEGIN 

2 223— {SIFC nrace)BP(ll); {SENDC) 

2 224— NoSel ect ion :■ TBoxSel ect ioaCREATE( NIL SELF. Heap, SELF. NIL nothingKind, zeroLPt); 

2 225 — {$IFC fTrac»)EP; {$ENDC) 

2 226-0 A END; 

2 227 — 

2 228 — END; 

2 229 — 

2 250 — 

2 251 — 

2 252 — HETHODS OF TBoxSel ect ion; 

2 255 — 

2 254 — A FUNCTION TBoxSel ect loa CREATE( object: TObJect; itsHeap: THeap; itsVieu: TVieu; itsBox: TBox; 

2 255 — itsKind INTEGER; itsAnchorLPt: LPoint): TBoxSel ect ion; 

2 256 0- A BEGIN , , 

2 257— (SIFC fTrace)BP(ll);{$ENDC) 

2 258 — IF object - NIL THCN 

2 259 — object :- NeuObJectf ItsHeap, THTSCLASS); .. ^, ^ ,♦ iv^ k wo♦^^ 

2 240— SELF :- TBoxSel ect Ion( TSelection. CREATE( object, itsHeap, itsVieu, itsKind, itsAnchorLPt)); 

2 241 — 

2 242 — SELF, box : - ItsBox; 

2 245— {$1FC fTrace)EP;{$ENOC) 

2 244 -0 A END; 

2 245 — 

2 246 — {JIFC fDebughethods) , ^, ^^..^ 

2 247 — A PROCEDURE TBoxSel ect ion. Fields( PROCEDURE FieId(na«eAndType: S255)); 

2 248 0- A BEGIN 

2 249— SUPERSELF.Fields( Field); 

2 250 — FieldCbox: TBox); 
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2 


251 -0 


A 


2 


252 — 




2 


255 ~ 




2 


254 — 




2 


255 — 




2 


256 — 


A 


2 


257 0- 


A 


2 


258 — 




2 


259 — 




2 


260 1- 




2 


261 — 




2 


262 — 




2 


265 -1 




2 


264 — 




2 


265 -0 


A 


2 


266 — 




2 


267 — 




2 


268 — 


A 


2 


269 0- 


A 


2 


270 — 




2 


271 — 




2 


272 " 




2 


275 -0 


A 


2 


274 — 




2 


275 — 




2 


276 — 


A 


2 


277 — 




2 


278 — 




2 


279 — 




2 


280 — 




2 


281 — 




2 


282 — 


B 


2 


285 — 




2 


284 0- 


B 


2 


285 — 




2 


286 — 




2 


287 1- 




2 


288 — 




2 


289 — 




2 


290 -1 




2 


291 — 




2 


292 — 




2 


295 -0 


B 


2 


294 — 




2 


295 0- 


A 


2 


296 — 




2 


297 — 




2 


298 — 




2 


299 — 




2 


500 — 




2 


501 — 




2 


502 1- 




2 


505 — 




2 


504 — 




2 


505 — 




2 


506 — 




2 


507 2- 




2 


508 — 




2 


509 — 




2 


510 -2 




2 


511 -1 




2 


512 -- 




2 


513 — 




2 


514 — 




2 


515 — 




2 


516 -0 


A 


2 


517 — 




2 


518 -- 




2 


519 ~ 




2 


520 — 


A 


2 


521 — 




2 


522 0- 


A 


2 


525 — 




2 


524 — 




2 


525 — 




2 


526 — 




2 


527 — 




2 


528 — 




2 


529 1- 




2 


550 — 




2 


551 — 




2 


552 -1 




2 


555 — 




2 


554 -0 


A 


2 


555 — 




2 


556 ~ 




2 


557 — 


A 


2 


558 — 




2 


559 0- 


A 


2 


540 — 




2 


541 — 




2 


542 — 




2 


545 1- 




2 


544 — 




2 


545 — 




2 


546 — 




2 


547 -1 




2 


548 — 




2 


549 -0 


A 


2 


550 — 




2 


551 — 




2 


552 ~ 


A 


2 


555 — 




2 


554 — 




2 


555 — 




2 


556 0- 


A 


2 


557 — 




2 


558 — 




2 
2 


559 — 

560 — 





ENO; 
{$CNOC} 



{This draws th* h«ndl«s on the selected box} 
PROCEDURE TBoxSelectioa Highl ight(highTr«nslt: THighTranslt); 
BEGIN 

f $ IFC rr race) BP( 11) ; ( SENOC) 
IF SELF, kind <> nothlngKind THEN 
BEGIN 

thePad. SetPenToHlghl ight(hiohTninsit); {set the drauing mode according to desired highlighting} 
SELF. box. Paint Handles; fdrau the handles on the box] 

END; 
{JIFC nrace}EP; {SENOC} 
END; 

PROCEDURE TBoxSelectioa KeyCl ear 
BEGIN 

f $ IFC n race} BPf 12) ; { SENOC} 

SELF, uindou. Per fomComnandC TCI earCmd. CREATE( NIL, SELF. Heap, uClear, TBoxV ieu( SELF, v ieu) , SELF, box)); 

{JIFC n race} EP; {JENDC) 
ENO; 

PROCEDURE TBoxSel ect ioa KeyTab; 
VAR thisPanel: TPanel; 

nextBox; TBox; 

boxVlau: TBox V leu; 

GetTheNextBox: BOOLEAN; 

PROCEDURE DoToObJect(fllteredObj: TObject); 

VAR box: TBox; 

BEGIN 

box :- TBox{filterodObj); 
IF GetTheNextBox - TRUE TKN 
BEGIN 

nextBox : ■ box; 
GetTheNextBox :- FALSE; 
END; 
IF box • SELF, box T«N 
GetTheNextBox : - TRUE: 
ENO; 

BEGIN 

{ $ IFC n race} BP( 12) ; { SENDC} 
thisPanel :- SELF, panel; 
boxVieu :- TBoxVleu(SELF. vieu); 
IF SELF, kind • nothingKind THEN 

SELF. cantDoIt 
ELSE 

BEGIN 

GetTheNextBox : • FALSE; 
nextBox : -NIL; 

boxVieu. EachVirtualPartCDoToDbject): 
IF nextBox - NIL THEN 
BEGIN 

GetTheNextBox : - TRUE; 
boxVieu. EachVirtualPart(DoToObject); 
END; 
END; 
thisPanel. Highl ight( SELF, hOnToOff); 
SELF, box :• nextBox; 



END; 



thisPanel. Highl ighl(SELF, hOfnoOn); 
{$IFC nraceJEP; {SENDC} 



{This is called when the user aoves the mouse after pressing the button} 

DL ' - -- . . 



PROCEDURE TBoxSel ect ioa Hou$e«ove{ nouseLPt : LPo int ) ; 

VAR diffLPt: LPo int; 

BEGIN 

{JIFC nrace}BP(ll);{$ENOC} 

{Hou far did mouse move?} 
LPt«lnusLPt{»ouseLPt, SELF. currLPt, diffLPt); 

{Hove it if delta Is nonzero} 
IF NOT Equal LPt( diffLPt, zeroLPt) T»£N 
BEGIN 

SELF. currLPt : • eeuseLPt; 

SELF. box. f1oveBox(TBoxVieu(SELF. view), diffLPt); 
END; 
{JIFC fTrace}EP; (JENDC} 
END; 

PROCEDinE TBoxSel ect ioa ftouseRei ease; 

VAR deltaLPt: LPoint; 

BEGIN 

{JIFC nrace}BP(ll):{JENDC} 

{ If the mouse moved then commit any outstanding command } 
IF NOT Equal LPt( SELF. currLPt, SELF. anchort.Pt) THEN 
BEGIN 

LPtHinu$LPt( SELF. currLPt, SELF. anchorLPt. deltaLPt); 
SELF, windou. Per fonoCommand(TMoveBoxCiKLCREATE( NIL. SELF. Heap, uMoveBox, TBoxV ieu( SELF, v iew) , 

SELF, box, deltaLPt. h. deltaLPt. v)); 
END; 
{JIFC nrace}EP; {JEMJC} 
ENO; 

FUNCTION TBoxSel ect ioa NeuCommand( cmdNunber. TCmdNumber): TCommand; 
VAR boxVieu: TBoxVieu; 

hesp: THeap; 

patteH, pasteV: LONG INT; 
BEGIN 

{JIFC nrace}BP(ll):{JENOC} 

boxVieu :• TBoxVieu( SELF, view); 
heap : « SELF. Heap; 
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2 561 — 

2 562 1- CASE cmdNunbar OF 

2 565 — uUhlta, uLtGray, uGray, uOkCray, uBlack: 

2 564— N«uCo— and :■ TRacolorCwcL CREATE(NIL heap. cmdNumbar. boxViau, SELF. box. 

2 565 — cadNuabar - uUhita * colorUhita); 

2 566 -- uClaar. 

2 567— NauCoamnd :- TClaarCadCREATECNIL, haap, cmdNuabar, boxViau, SELF, box); 

2 568 — 

2 569 — uCut, uCopy: 

2 570 — NauCoanarvJ -. - TBoxCutCopyCmd. CREATE(NIL haap. cndNunbar, boxVlau, cndNuNfear - uCut, 

2 571 — SELF, box); 

2 572 — uPasta; 

2 575 2- BEGIN 

2 574 — cl ipfooard. Inspect : 

2 57S — IF cl Ipboard. hasViaw THEN 

2 576 5- . BEGIN 

2 577 — WITH SELF DO 

2 578 — IF kind - nothingKlnd THEN 

2 579 4- BEGIN 

2 580 — pastaH :« boxViau. cl ickLPt. h; 

2 581 — pastav :■ boxViau. cl IckLPt. v; 

2 582 -4 END 

2 585 — ELSE 

2 584 — WITH box. shapaLRact 00 

2 58S 4- BEGIN 



2 586 — pastaH :- (iaft * right) DIV 2; 

2 587 — pastav :• (top ♦ botton) OIV 2; 

2 588 -4 END: 



2 589— NauCooaand :> TBoxPa$taCaid.CR£ATE( NIL. haap, cadNuabar, boxViau, pastaH. pastaV); 

2 590 -5 END 

2 591 — ELSE 

2 592— procass. Stop(phUnkCl Ip); 

2 595 -2 END; 

2 594 — 

2 595 — uOupI icata: 

2 596— NauConmand :- TDupi icataCiMLCREATECNIL. haap. cadNumbar, boxViau, SELF, box); 

2 597 — 

2 598 — OTHERWISE 

2 599 — NauComnand :- SUPERSELF. N«uCoMaand( ciK»KMbar) ; 

2 400 -1 END: 

2 401 — {JIFC nracajEP; {SEfOC) 

2 402 -0 A END; 

2 405 — 

2 404 — 

2 40S — A FUNCTION TBoxSal act ioa CanOoCoiinand{ cwMunbar TCndNuMbar. VAR chackit: BOOLEAN): BOOLEAN; 

2 406 0- A BEGIN. 

2 407— fSJFC rrraca}BP(ll);{$Ef«)C) 

2 408 1- CASE cffldNuinbar OF 

2 409 — uUhlta, uLtGray, uGray, uOkGray, uBlack, 

2 410 — uClaar, 

2 411 — uDupl Icata. 

2 412 — uCut, uCopy: 

2 415 — CanDoConnand :• SELF, kind <> nothingKlnd; 

2 414 — 

2 415 — uPasta: 

2 416 2- BEGIN 

2 417 — cl ipboard. Inspact; 

2 418 — CanDoConnand :■ cl ipboard. hasV law; 

2 419 -2 END; 

2 420 — 

2 421 — OTHERWISE 

2 422 — CanOoComaand :- SUPERSELF. CanDoCoiMiand( ciaeMunbar, chackit); 

2 425 -1 END; 

2 424 — {SIFC fTraca}EP; [S^mc] 

2 425 -0 A END; 

2 426 — 

2 427 — END; 

2 428 — 

2 429 — 

2 450 — 

2 431 — METHODS OF TCraataBoxSalact ion; 

2 432 — 

2 433 — A FUNCTION TCraataBoxSalact ioa CREATE{ Ob jact: TObJact; ItsHeap: THeap; itsVleu: TVlau; 

2 434 — itsAnchorLPt; LPoint): TCraateBoxSel act ion; 

2 455 — VAR box: TBox; 

2 456 0- A BEGIN 

2 437— (JIFC fTraca)BP(U):($ENOC) 

2 458 — IF Ob jact - NIL THEN 

2 459— objact :- NauObiactdtsHaap, THISCLASS); 

2 440— SELF :• TCraataBoxSal act ion(TSal act ion. CREATEC Ob jact. itsHeap. itsVieu. craataBoxSalactionKlnd, 

2 441 — itsAnchorLPt)); 

2 442— box :- TBox. CREATEC NIL SELF, haap); 

2 443 — ^LF. box : ■ box; 

2 444 — {$IFC rrracajEP; {$ENDC} 

2 445 -0 A END; 

2 446 — 

2 447 — 

2 448 — {$IFC fOabugflathods) , ^,,^,, 

2 449 — A PROCEDURE TCraataBoxSalact ioa Flalds(PROCEDURE Fiald{naiiiaAndTypa; S255)); 

2 450 0- A KGIN 

451 — SUPERSELF. FiaId$(Flald); 

2 452— FialdCbox: TBox' ); 

2 455 -0 A END: 

2 454 — (SENOCJ 

2 455 — 

2 456 — 

2 457 — {This is call ad uhan tha usar aovas tha nousa aftar prassing tha button] 

2 458 — A PROCEDURE TCraataBoxSalact ioa Housanova(iaousaLPt: LPoint): 

2 459 — Vfi^ maxBoxLRact: LRact; 

2 460 — diffLPt: LPoint; 

2 461 — boxViau: TBoxViau; 

2 462 — box: TBox; 

2 463 — 

2 464 — B PROCEDURE DrauThaF ramr, 

2 465 0- B BEGIN 

2 466 — box. DrauFraaa; 

2 467 -0 B END; 

2 468 — 

2 469 0- A BEGIN 

2 470— {JIFC fTraca)BP(ll);{$ENDC) 
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2 471— boxViau :- TBoxVlMSELF. vl*u); 

2 472 — box : - SELF, box; 

2 475 ~ 

2 474 — (In Boxvr It is posslbls to draw a box graatar than allouad by a 16 bit ractangla. Thasa thraa 

2 475 — Unas forca tha ractangla to within 16 bits. } 

2 476 — {$H-) yiTH SELF. anchort.Pt DO 

2 477 — SatLRactrmaxBoxLRact, h»10-MAXINT, v*10-MAXINT, h*riAXINT-10. v»MAXINT-10); 

2 478 ~ {$H«} LRactHavaLFtCmxBoxLRact, aousaLPt); 

2 479 — 

2 480— LPtMinu$LPt(iiiou$aLPt. SELF, cur rt.Pt, diffLPt); 

2 481 — IF NOT Equal LPt( diffLPt, zaroLPt) THEN 

2 482 1- BEGIN 

2 485 — SELF. currLPt :■ mousaLPt; 

2 484 — 

2 48S — boxViaw. panal. OnAllPadsOo{OrauThaFraina); 

2 486 — WITH box DO 

2 487 2- BEGIN 

2 488 — shapaLRact. topLaft : > SELF. anchorLPt; 

2 489 — ShapaLRact. bot Right :> aousaLPt; 

2 490 -2 END: 

2 491 — 

2 492— ($H-} Ract I fyLRact( box. ShapaLRact); {$H*) 

2 495— boxViau. panal. OnAUPadsOoC OrawThaFraaa); 

2 494-1 END; 

2 495— {$IFC frraca)EP; ($ENDC) 

2 496 -0 A tHD-, 

2 497 — 

2 498 — 

2 499 — A PROCEDURE TCraataBoxSal act ioa HousaRal aasa; 

2 500 — VAR thlsBox: TBox; 

2 501 — boxVitu: TBoxUiaw, 

2 502 — draunLRact: LRact; 

2 505 — aSel act ion: TSal act ion; 

2 504 — panal: TPanal; 

2 505 — 

2 506 — B PROCEDURE OrauThaFrane; 

2 507 0- B BEGIN 

2 508 — thisBox. DrauFrana; 

2 509 -0 B END; 

2 510 — 

2 511 0- A BEGIN 

2 512— {$IFC nracalBP(ll):f$ENOC} 

2 515 — boxVlaw :- TBoxV iau{ SELF, v iaw) ; 

2 514 — panal :> boxV iau. panal ; 

2 515— thisBox :- SELF, box; 

2 516 — panal. OnAllPadsDo(DrawThaF raffle); 

2 517 — drawnLRact : - thisBox. shapaLRact; , 

2 518 — 

2 519 — [ Indapandant of uhathar U9 thrau tha boxed auay or not ue must create an instance of TBoxSel act ion 

2 520 — to replace the now useless instance of TCraataBoxSal ect ion using tha kind sat above. } 

2 521— aSel ect ion :- SELF. FraedAndRepIaceby( 

2 522— TBoxSel ect ioa CREATE( NIL, SELF, heap, boxVieu, thisBox, boxSel ect ionK ind, 

2 525— draunLRact. topi eft)); 

2 524 — 

2 525 — boxVieu. InvalBox( draunLRact); 

2 526 — 

2 527 — (If the box is not big enough than throu it auay, otherwise put it in the I ist} 

2 528 — IF (draunLRect, right - draunLRect. left <"4) OR (draunLRect. bottom - draunLRact. top <-4) THEN 

2 529 1- BEGIN 

2 550 — aSel ect ioa kind :■ nothingKind; 

2 551 — thisBox. Free; 

2 552 -1 END 

2 555 — ELSE 

2 554— panel, uindou. Per fomiComiiand( TCreataCmd. CREATE( NIL, SELF. Heap, uCreateBox, boxUieu, thisBox)); 

2 555 — {$IFC fTraca3EP;{$ENDC} 

2 556 -0 A END; 

2 557 — 

2 558 — END; 

2 559 — 

2 540 — 

2 541 — 

2 542 — 

2 545 — METHODS OF TRacol orCind; 

2 544 — 

2 545 — A FUNCTION TRacolorCnd. CREATE( object: TObJect; itsHaap: THeap; itsCmdNumber. TCmdNutnber, 

2 546 — itsVieu: TBoxViau; itsBox: TBox; itsColor TColor): TRecol orCmd; 

2 547 0- A BEGIN 

2 548— (JIFC nraca)BP(10);{$£NOC} 

2 549 — IF object - NIL THEN 

2 550 — object :• NauOb ject( itsHeap, THISaASS); 

2 551— SELF :• TRecol orCadfTComnand. CREATE( object, itsHaap, itsCmdNuinbar, ItsViau, TRUE, ravealAll)); 

2 552— SELF, color :• itsCoI or 

2 555 — SELF, box : - ItsBox; 

2 554— {$IFC frrace)EP;{$ENDC} 

2 555 -0 A END; 

2 556 — 

2 557 — 

2 558 — (SIFC fDabuoMethods} 

2 559 — A PROCEDURE TRecol orCMd.Fields( PROCEDLfftE FieldCnameAndType: S255)); 

2 560 0- A BEGIN 

2 561 — TComnand.Fields( Field): 

2 562— Fieldf* Color INTEGER'); 

2 565 — Field("box: TBox"); 

2 564 -0 A END: 

2 565 — {SENDC} 

2 566 — 

2 567 — 

2 568 — A PROCEDURE TRecol orCmd. Co«m it; 

2 569 0- A BEGIN 

2 570— fSIFC n race] BP( 12); (SENDC) 

2 571 — SELF, box. col or : • SELF, col or 

2 572 — ($IFC fTrace)EP; (SENDC) 

2 575 -0 A END; 

2 574 — 

2 575 — 

2 576 — A PROCEDIAE TRecol orCnd. Per form(cMdPhas« TCaidPhase); 

2 577 0- A BEGIN 

2 578 — fSIFC fT race) BP(12): (SENDC) 

2 579— TBoxV iau( SELF, ioiage). InvalBoxC SELF. box. shapeLRect); 

2 580 — 
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2 S81 — self. img*. vi»u. parwl. $«l»ctioa tlarkChano*d; {allow this ctocuMnt to b* savkd} 

2 582-- {$IFC fTr»c«)EP; {JENOCJ 

2 SB3 -0 A END; 

2 584 — 

2 585 ~ 

2 586 — A PROCEDURE TR»coIoiCiiid.FiIt8rAnciOo( actual Ob J: TObJact; PROCEDURE OoToObJact( f 11 taradOb J: TObJact}}; 

2 587 — ■ VAR savaColor TColon 

2 588 — box: TBox; 

2 589 0- A BEGIN 

2 590— {$IFC fTraca)BP(12);{$EN0C) 

2 591— box : ■ TBox(actualObJ); 

2 592 — IF box - SELF, box THEN 

2 593 1- BEGIN 

2 594 — savaColor :■ box. color, 

2 595 — box. col or : - SELF. Col or 

2 596 — DoT«ObJact(box); 

2 597 — box. color : ■ savaCol or, 

2 598 -1 END 

2 599 — ELSE , , 

2 600 — OoToObJact(box); 

2 601— {$IFC fTraca)EP:{$ENOC) 

2 602 -0 A END; 

2 605 — 

2 604 ~ END; 

2 605 ~ 

2 606 ~ 

2 607 — 

2 608 — HETHOOS OF TCraataCmd; 

2 609 ~ 

2 610 — A FUNCTION TCraataCmd. CREATE( Ob Jact: TObJact; itsHaap: THaap; ItsCmdNumber TCmdNunban 

2 611 — itsViau: TBoxViau; ItsBox: TBox): TCraataCmd; 

2 612 0- A BEGIN 

2 615— fJlFC fTraca)BP(10);{$ENOC} 

2 614 — IF Ob jact - NIL THEN 

2 615 ~ Ob Jact :- NauObjactC itsHaap, THISaASS); 

2 616— SELF :- TCraataCffld(TComMnd CR£ATE( Ob Jact, itsHaap, itsCmctfiufflber, itsVieu, TRUE, ravaalAll)); 

2 617 — SELF. nauBox : ■ itsBox; 

2 618 -- {SIFC fTraca]EP;{$ENDC) 

2 619 -0 A END; 

2 620 — 

2 621 ~ A PROCEDURE TCraataCmd. Fraa; 

2 622 0- A BEGIN 

2 625— fSIFC nraca)BP{10);{$ENOC} 

2 624— Fraa(SELF. nauBox); 

2 625 — SELF. FraaOb jact; 

2 626 — {$1FC fTraca}EP; {SEfCC} 

2 627 -0 A END; 

2 628 — • 

2 629 — 

2 650 — {SIFC fOebugMathods) 

2 651 — A PROCEDURE TCraataCmd. FialdsC PROCEDURE Fiald(namaAndTypa: S255)); 

2 652 0- A BEGIN 

2 655— SUPERSELF. Fialds(Fiald); 

2 654 — F lei d( ■ nauBox: TBox'); 

2 655 -0 A END: 

2 656 — (SENDC) 

2 657 — 

2 658 " 

2 659 — A PROCEDURE TCraataCmd. Commit; 

2 640— VAR boxViau: TBoxViau; 

2 641 0- A BEGIN 

2 642 — (SIFC nraca)BP(12):{$ENDC} 

2 645— TBoxV iau( SELF. imagaJ.boxList. InsLast( SELF. nauBox); 

2 644 — SELF. nauBox : - N IL; 

2 645— {SIFC nraca)EP;{$Er©C] 

2 646 -0 A END; 

2 647 — 

2 648 — A PROCEDURE TCraataCmd. UpdataSal act ion(thisSal act ion: TBoxSal act ion; cmdPhasa: TCmdPhase); 

2 649 0- A BEGIN 

2 650— {SIFC frraca)BP(15);{$EN0C) 

2 651 — yiTH thisSalaction DO 

2 652 1- CASE cmdPhasa OF 

2 655 — doPhasa, radoPhasa: 

2 654 — kind :- boxSalactionKind; 

2 655 — undoPhasa: 

2 656 — kind :■ nothingKind; 

2 657 -1 END {CASE}; 

2 658 — {$1FC ftracajEP; {$EI«)C1 

2 659 -0 A END; 

2 660 — 

2 661 — 

2 662 — A PROCEOimE TCraataCmd. ParfonK cmdPhasa: TCmdPhasa); 

2 665 — VAR boxViau: TBoxUiau; 

2 664 — box: TBox; 

2 665 — thisSalaction: TBoxSal act ion; 

2 666 0- A BEGIN 

2 667— {SIFC fTraca}BP{12):{$EN0C) 

2 668 — boxV law :- TBoxViau( SELF, imaoa}; 

2 669 — th IsSal act ion : > TBoxSal act ion( boxV iau. panal . sal act ion) ; 

2 670— SELF. UpdataSal act ionf thisSalaction, cmdPhasa}; 

2 671— box V iau. InvalBox(SEL^ nauBox. shapaLRact): 

2 672 — 

2 675— sal f. imaga.v iau. panal. sal act ioaharkChanoad; {allou this document to ba savad} 

2 674— {SIFC rr race} EP;rSENDC) 

2 675 -0 A END; 

2 676 — 

2 677 — 

2 678 — A PROCEDURE TCraataCmd. EachVirtualPart(PROCEDURE DoToObJact(filtaradObj: TObject)); 

2 679 0- A BEGIN 

2 680— (SIFC n race] BP( 12): {SENOC) 

2 681— TBoxViauCSELF-. imao«}-EachActualPart(OoToObJact); 

2 682— DoTo0b1ect( SELF. nauBox}; 

2 685 — {$IFC fTraca}EP; {JENDCJ 

2 684 -0 A END; 

2 685 — 

2 686 — END: 

2 687 — 

2 688 — 

2 689 — 

2 690 — METHODS OF TDupl icataCmd; 
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2 691 ~ 

2 692 — A FUNCTION TOupl IcataCad. CREAT£( object; TObJect; itsHaap: THaap; itsCffldNumber. TCmdNunbar, 

2 693 — itsUiau: TBoxUlau; ItsBox: TBox): TDupl icattCmd; 

2 694 — VAR rwuBox: TBox; 

2 695 0- A BEGIN 

2 696— f $IFC nr»c«)BP(10); {$ENOC) 

2 697 — IF obl»ct « NIL THEN 

2 698— objact :- N«wObl0ct(lt$H««p, THISCLASS); 

2 699— SELF :• TOupl icatvCmcKTComnsnd. CREATEC object, ItsHeap, itsCmdNuinber, itsViau, TRUE, ravaal Al 2 } ) ; 

2 700 — SELF. imoa. vlau. panal. ulndou. ComnitLast; 

2 701 — SELF. oleBox :- ItsBox; 

2 702 — nauBox : • TBox( ItsBox. CI ona( ItsHaap)); 

2 705 — SELF, nauBox : • nauBox; 

2 704— {$H-1 Of fSatLRact( nauBox. shapaLRact. 20, 20); {$H*) 

2 705 — {$IFC nraca)EP; {$ENDC} 

2 706 -0 A END; 

2 707 — 

2 708 — 

2 709 — {$IFC fOabuoHathods) 

2 710 — A PROCEDURE TDupl icataCmd.Fial ds( PROCEDURE Fiald{namaAndTypa; S255)); 

2 711 0- A BEGIN 

2 712— SUPERSELF. Fiald$fFlald); 
2 715 — Flald{oldBox: TBox); 
2 714 -0 A END: 
2 715— {$ENDC) 
2 716 — 
2 717 — 
2 718 — 

2 719 — A PROCEDURE TDupl icataCmd. LNsdataSal act ion(thisSal act ioa- TBoxS^l act ion; cmdPhasc: TCmdPhasa); 

2 720 0- A BEGIN 

2 721— {$IFC fTraca)BP(13);{$EWDC) 

2 722 — WITH thisSalactlon DO 

2 725 1- CASE cntdPhasa OF 

2 724 — doPhasa, radoPhasa; 

2 725 — box : ■ SELF. nauBox; 

2 726 — undoPhasa: 

2 727 — box :- SELF. oldBox; 

2 728 -1 END (CASE); 

2 729— l$IFC ftrace}EP;{$ENOC} 

2 750 -0 A END; 

2 751 — 

2 752 — END; 

2 735 — 

2 734 — 

2 755 — 

2 756 — METHODS OF TBoxCutCopyCmd; 

2 757 — 

2 758 — A FUNCTION TBoxCutCopyCmd. CREATE{ object: TObject; itsHaap; THaap; ItsCmdNumbar TCmdNumber 

2 759 — ItsUieu: TUiau; isCutCmd: BOOLEAN; itsBox: TBox): TBoxCutCopyCmd; 

2 740 0- A BEGIN 



2 741 — fSIFC nraca)BP(10);t$ENDC} 

2 742 — IF object - NIL THEN 



Ob ject 

2 745 — object :- NeuObjectf itsHeap, THISCLASS); 

2 744— SELF :- TBoxCutCopyCmdCTCutCopyConmand CREATE( Ob ject, itsHeap, itsCmdNumber, itsVieu, isCutCmd)); 

2 745 — SELF, box : - itsBox; 

2 746 — ISIFC nraca)EP; {SENDC) 

2 747 -0 A END; 

2 748 — 

2 749 — 

2 750 — [$IFC fOebugMathods) 

2 751 — A PROCEDURE TBoxCutCopyCiKl. Fields(PRXEDURE F lei d(nafflaAndTypa: S255)); 

2 752 0- A BEGIN 

2 753— SUPERSELF.Fields( Field); 

2 754 — FleldCbox: TBox*); 

2 755 -0 A END; 

2 756 — {SENDC} 

2 757 — 

2 758 — 

2 759 — A PROCEDURE TBoxCutCopyCmd. Commit; 

2 760 — VAR s: TLlstScannar 

2 761 — box: TBox; 

2 762 0- A BEGIN 

2 765 — ($IFC nrace)BP(12);{$ENDC) 

2 764 — IF SELF. IsCut T«N 

2 765 1- BEGIN 

2 766— s :- TBoxVieu( SELF. Image). boxL 1st. Scanner, 

2 767 — WHILE $. Scan{boxf DO 

2 768 — IF box - SELF, box THEN 

2 769 2- BEGIN 

2 770 — *. Delete{TRl^); 

2 771 — $. Done; 

2 772-2 END; 

2 773 -1 END; 

2 774 — t$IFC nrace)EP; {$ENDC] 

2 775 -0 A END; 

2 776 — 

2 777 — 

2 778 — A PROCEDURE TBoxCutCopyCmd. DoCutCopy(cl ipSel act ion: TSalectlon; deletaOrlginal: BOOLEAN; 

2 779 — cmdPhasa: TCmc»»ha$e); 

2 780 — UAR box V leu: TBox View; 

2 781 — thisBoxSelection: TBoxSel ect ion; 

2 782 — cl ipHeap: THeap; 

2 785 — cl ipBoxLlst; TLlst; 

2 784 — cl IpBoxVleu: TBoxVleu; 

2 785 — cl ipBoxSel ect Ion; TSel ect ion; 

2 786 — cl ipBox; TBox; 

2 787 — deltaH: LONG INT; 

2 788 — deltaV: LONG INT; 

2 789 — 

2 790 — 

2 791 0> A BEGIN 

2 792— {JIFC fTrace)BP(12);($£N0C) 

2 795— box V lew :- T6oxVieu( SELF, image): 

2 794 — 

2 795 — IF cmdPhase - defease THEN 

2 796 1- BEGIN 

2 797 — 

2 798 — {prepare to copy! 

2 799— cl ipHeap :- cl IpSel ect ioa Heap; 

2 800 — 
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2 801 — 6*1 fH :■ SELF. box. $hapeLR»ct. l«ft; 

2 802 — daltaV : - SELF. box. shap«LR»ct. top; 

2 805 — 

2 804 — (Copy the box to th« scrap} 

2 805— d Ip8ox :- TBox( SELF. box. Clonic cl IpHtap)); 

2 806— (SH-} Offs«tLRKt(cIlpBox. sh«p<LR«ct, -dcltaK -d«ltaV); {$H'^} 

2 807 — 

2 808— clipBoxLlst :• TList. CREATEfNIL. d ipH«ap, 0); 

2 809— d ipBoxList. InsLast(cllpBox); 

2 810 — 

2 811— {Mk* rmi cl Ipboard salaction) 

2 812— d ipBoxViau :» TBoxViau. CREATE(NIL, d ipH«ap, d ipSal act ion. pansi , d ipBox. shapaLRact); 

2 81S — d lpBoxViau.boxLlst :- d ipBoxList; 

2 814 — d IpSoxSal act Ion :• cl ipSalact ion. FraadAndRaplacad6y( 

2 815— TBoxSalactioaCREATE(NIL. cl ipHaap, d ipBoxOiau, cl IpBox, boxSal act ionK ind, zaroLPt)}; 

2 816 -1 ENfr. 

2 817 — 

2 818 — r If this is a cut than ramaka tha sal act ion and inval idata tha cut box. } 

2 819 — IF SELF. isCut THEN 

2 820 1- BEGIN 

2 821— thisBoxSalaction : - T6oxSalaction(boxViau. panal. salaction); 

2 822— WITH thisBoxSalaction 00 

2 823 2- CASE cndPhasa OF 

2 824 — doPhasa, radoPhasa: 

2 825 — Kind : - nothingKlnd; 

2 826 — undoPhasa: 

2 827 — Kind :- boxSal act ionK ind; 

2 828 -2 END; 

2 829— {$H-} box Viau. Inval Box( SELF. box. ShapaLRact); {$H*} 

2 830 -1 END; 

2 851 — 

2 852 — sal f. imaga. viau. panal, sal act ioa HarkChanoad; {allow this document to ba savadj 

2 855 — {$IFC fTracajEP; [SENOCj 

2 854 -0 A END: 

2 855 — 

2 856 — 

2 857 — A PROCEDURE TBoxCutCopyCiBd.EachVlrtualPart(PROCEDURE DoToObjact(filtaradObj: TObjact)); 

2 858 0- A BEGIN 

2 859— fJIFC fTraca)BP(12);{$ENDC) 

2 840 — IF SELF. isCut THEN 

2 841 — SUPERSELF. EachVlrtualPart(DoToObJact) 

2 842 — ELSE 

2 845— SELF, imaga. EachActualPart(DoToObJact}; 

2 844— {$IFC fTracajEP; {$ENOC} 

2 845 -0 A END; 

2 846 — 

2 847 — 

2 848 — A PROCEDURE TBoxCutCopyCmdF iltarAndDo( actual Ob j: TObjact; PROCEDURE DoToObjact( filtaradObj: TObjact)); 

2 849 — UAR box: TBox; 

2 850 0- A BEGIN 

2 851 — {$IFC fTraca)BP(12);{$EI«)C) 

2 852 — box :- TBox( actual Ob j); 

2 855 — IF (box <> SELF, box) OR NOT SELF. isCut TfCN 

2 854 — OoToObjactr actual Ob j); 

2 855 — {$IFC fTraca)EP; {$ENDC] 

2 856 -0 A END; 

2 857 — 

2 858 — END; 

2 859 — 

2 860 — 

2 861 — 

2 862 — rCTHODS OF TBoxPastaCnd; 

2 865 — 

2 864 — A FUNCTION TBoxPastaCmd. CREATE(ob jact: TObject; itsHaap: THaap; ItsCmdNumber TCmdNumber; 

2 865 — itsViau: TBoxViau; itsH, itsV: LONGINT): TBoxPastaCmd; 

2 866 0- A BEGIN 

2 867— fSIFC fTraca)BP(10);{$ENDC} 

2 868 — IF object "NIL THEN 

2 869 — object :- NauObjactf itsHeap, THISCLASS); 

2 870— SELF :■ TBoxPastaCind(TPa$taConi»nd. CREATE( object, itsHeap. itsCmdNumber, itsVieu)); 

2 871 — WITH SELF DO 

2 872 1- BEGIN 

2 875 — pastaH : ■ itsH; 

2 874 — pasteV : - itsV; 

2 875 — pasteBox : - NIL; 

2 876 -1 END; 

2 877 — ($IFC fTraca}EP; {SENOC) 

2 878 -0 A END; 

2 879 — 

2 880 — 

2 881 — {$IFC fOebuoHethods} 

2 882 — A PROCEDURE TBoxPastaCaKlFialds(PROCED(^ Field(naMAndTypa: S255)); 

2 885 0- A BEGIN 

2 884— SUPERSELF. Fialdsf Field): 

2 885 — Fialdf- pastaH: LONGINT^); 

2 886 — Fieldf-pastaV: LONGINT); 

2 887 — FieldC* pasteBox: TBox'); 

2 888 -0 A END: 

2 889 — (SENDCJ 

2 890 — 

2 891 — 

2 892 — A PROCEDURE TBoxPastaCwL Free; 

2 895 0- A BEGIN 

2 894— fJIFC fTrace)BP(12);{$EN0C] 

2 895 — Prae( SELF. pasteBox): 

2 896 — SELF. FrmOb jact; 

2 897— {$IFC fTracajEP; {$ENOC} 

2 898 -0 A tm. 

2 899 — 

2 900 — 

2 901 — A PROCEDURE TBoxPasteCad. Coamit; 

2 902 0- A BEGIN 

2 905 — f$IFC fTracalBP(12):{$EN0C) 

2 904— tBoxVievKSELF. inM)boxList. InsLast(SELF. pasteBox); 

2 905 — SELF. pasteBox : - N IL; 

2 906 — {$IFC nraceJEP; (SENDC) 

2 907 -0 A END; 

2 908 — 

2 909 — 

2 910 — A PROCEDURE TBoxPasteC«id.DoPa$te(cl ipSelect ion: TSelection; pic: PicHandle; cmdPhasa: TCwdPhasa); 
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2 911 — VAR boxVitu: TBoxVi»u; 

2 912 — panel: TP»n«l; 

2 915 — cl ipBoxSai tl ion: TBoxScl act ion; 

2 9lA — thisBoxS«l»ction: TBoxSel ^ct ion; 

2 915 — cl ipBoxVitu: TBoxVlau; 

2 916 — daltaH: LONGINT; 

2 917 — daltaV: LONGINT; 

2 918 — $: TLi$tSc«nn«r, 

2 919 — cl ipBox: TBox; 

2 920 ~ box: TBox; 

2 921 — 

2 922 0- A BEGIN 

2 925— {$IFC nr»ce}BP(12);{$ENDCl 

2 924— boxV leu :-TBoxv;ieu( SELF, image); 

2 92S — panel : > boxV ieu. panel ; 

2 926 — 

2 927 — IF cmdPhase ■ doPhase THEN 

2 928 1- BEGIN 

2 929 — { K the clipboard selection is of class TBoxSel ect ion then ue can paste it into document, 

2 950 — otherwise ue have to do other things } 

2 951— IF NOT InCl ass( cl ipSel ect ion, TBoxSel ect ion) THEN 

2 952— panel, selection. CantDo It 

2 955 — ELSE 

2 954 2- BEGIN 

2 955 — cl ipBoxSel ect ion : - TBoxSel ect ion( cl ipSel ect ion) ; 

2 956 — 

2 957 — { Place the box around the point indicated by pasteH and pasted } 

2 958 — {SH-} WITH cl IpBoxSel ect ioa box. shapeLRect DO {toox.^hapeLRect. topLeft > zeroLPt} 

2 959 5- BEGIN 

2 940 — deltaH :- Max(0, Mln( SELF. pasteH - (right DIV 2). 

2 941 — boxVieu. extentLRect. right - right)); 

2 942— deltaV :• nax(0, nin( SELF. pasteV - (bottom OIV 2), 

2 945— boxVieu. extentLRect. bottom - bottom)); 

2 944 -5 t$H*) END; 

2 945 — 

2 946— box ;■ TBoxfcl ipBoxSel ect Ion. box. Clone(boxV leu. Heap)); 

2 947— {$H-} OffsetLRectC box. ShapeLRect, deltaH, delta*./): {$H*} 

2 948 — SELF. pasteBox : « box; 

2 949 -2 END; 

2 950 -1 END; 

2 951 — 

2 952 — th isBoxSel ect ion :■ TBoxSel ect ion( panel, select ion); 

2 955— panel. Highl ight(thisBoxSel ect ion, hOnToOff); 

2 954 — UITH thisBoxSelection DO 

2 955 1- CASE cmdPhase OF 

2 956 — doPhase, redoPhase: 

2 957 2- BEGIN 

2 958 — kind :■ boxSelect lor^ind; 

2 959 — box : • SELF. pasteBox; 

2 960 -2 END: 

2 961 — 

2 962 — undePhase: 

2 965 — kind :- nothingKind; 

2 964 -1 END; 

2 965 — 

2 966— {$H-} boxV ieu. InvalBox( SELF. pasteBox. ShapeLRect); {$H-} 

2 967 — 

2 968 -- self, image. V ieu. panel . select ioa Ha rkChanged; fallou this document to be saved} 

2 969 — ($IFC nrace)EP; {SENDC) 

2 970 -0 A END; 

2 971 — 

2 972 — 

2 975 — A PROCEDURE TBoxPasteCmd. EachVirtualPart( PROCEDURE DoToOb ject( filteredObj: TObject)); 

2 974 0- A BEG IN 

2 975— fSIFC fTrace)BP(12);{$EN0C) 

2 976— SELF, image. EachActual Pa rt(DoToObJect ); 

2 977 — DoToOb1ect( SELF. pasteBox); 

2 978 — {$IFC fTrace)EP; ISENDC) 

2 979 -0 A END; 

2 980 — 

2 981 — END; 

2 982 — 

2 985 — 

2 984 — 

2 985 — METHODS OF TClearAllCmd; 

2 986 — 

2 987 — A FUNCTION TCI earAl 1 C«d. CREATE( object: TObject; itsHeap; THeap; itsCmdNumber. TCmdNumber 

2 988 — itsVieu: TBoxV ieu): TClearAllCmd; 

2 989 0- A BEGIN 

2 990— ($IFC fTrace)BP(10);{$ENDC) 

2 991 — IF object • NIL THEN 

2 992— object :• NeuObjectfitsHeap, THISCLASS); 

2 995— SELF :- TCI •arAllQiid(TCooimandCREATE( object, itsHeap, itsCmdNumber, ItsVieu, TRUE, reveal None) ) ; 

2 994— SELF, kind :- SELF, image, vieu. panel, select ion. kind, 

2 995 — {$IFC nrace)EP; {SENDC) 

2 996 -0 A END; 

2 997 — 

2 998 — 

2 999 — {$IFC fDebughethods} 

2 1000 — A PROCEDURE TClearAllCmd. Fields( PROCEDURE Field(nameAndType: S255)); 

2 1001 0- A BEGIN 

2 1002 — TConmand. F iel ds( F iel d) ; 

2 1005— F iel dC kind INTEGER); 

2 1004 -0 A END; 

2 1005 — {SENDC) 

2 1006 — 

2 1007 — 

2 1008 — A PROCEDURE TClearAllCmd. Commit; 

2 1009 0- A BEGIN 

2 1010 — f JIFC n race) BP( 12): {SENDC} 

2 1011— TBoxV ieu( SELF. liMfle).boxList. Del All (TRUE); 

2 1012— {$IFC nrace}EP;{|£NOC} 

2 1015 -0 A END; 

2 1014 — 

2 1015 — ■ 

2 1016 — A PROCEDURE TClearAllCmd Perfonn( cmdPhase: TCmdPhase); 

2 1017 — WAR thlsSelection: TSelection; 

2 1018 — boxVieu: TBoxVieu; 

2 1019 0- A BEGIN 

2 1020— {$IFC n race} BP( 12); {SENDC} 
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2 1021 -- boxVl»w : • TBoxVl«u(SELF. irnao*); 

2 1022— thisS«l»ct ion :• boxVi»u.p«n«l. select ion; 

2 1025 — 

2 1024 — WITH thlsS«l*ction 00 

2 1025 1- CASE ciiie*»h*$» OF 

2 1026 — doPhas*. rvdoPhas*: 

2 1027— kind :• not hingKlnd; 

2 1028 — undoPhas*: 

2 1029— kind :■ SELF, kind; 

2 1050 -1 END; 

2 1051 — 

2 1052 — ( Inval idata tha uhola panal } 

2 1055— boxViau. panal. Inval idata; 

2 1054 — 

2 105S — sal f. inaga. viau. panal. sal act ioa Ma rkChangad; [allou this document to be saved} 

2 1056— {$IFC fTracajEP;I$ENDC} 

2 1057 -0 A END; 

2 1058 — 

2 1059 — 

2 1040 — A PROCEDURE TCI aarAllCwlEachV irtual Parte PROCEDURE OoToObject(filtaredObj: TObjact)); 

2 1041 0- A BEGIN , ^ , 

2 1042— {IIFC nrace}BP(12);f$ENDC} 

2 1045 — (SIFC fTracejEP; {SENOCj 

2 1044 -0 A END; 

2 1045 — 

2 1046 — END; 

2 1047 — 

2 1048 — 

2 1049 — 

2 1050 — METHODS OF TClearCiad; 

2 1051 — 

2 1052 — A FUNCTION TCI aarCmd. CREATE( object: TOsject; itsHeap: THeap: ItsCmdNumber TCmdNuiBber 

2 1055 — itsVieu: TBoxVieu; ItsBox: TBox}: TClearCnid; 

2 1054 0- A BEGIN 

2 1055— {SIFC fTrace}BP(10);{$ENDC) 

2 1056 — IF object - NIL THEN 

2 1057 — object : ■ NeuObJect( itsHeap, THISCLASS); 

2 1058— SELF :- TCI earCmd(fBoxCutCopyCind.CREATE( object, ItsHeap, itsCmdNumber, itsVleu, TRUE, itsBox)); 

2 1059— {$IFC fTrace)EP; {iENDCl 

2 1060 -0 A END; 

2 1061 — 

2 1062 — 

2 1065 — A PROCEDURE TClearCiad. Perfoni<cmdPhase: TCKtf>hase); 

2 1064 — VAR boxVieu: TBoxVieu; 

2 1065 — thisBoxSelection: TBoxSel ect ion; 

2 1066 — panel: TPanei; 

2 1067 0- A BEGIN 

2 1068— {$IFC rTracelBP(12);f$ENDC} 

2 1069— boxVieu : - TBoxVievKsELF. iaage): 

2 1070 — panel :* boxVieu. panel; 

2 1071 — thisBoxSelection -. - TBoxSel ect ion( panel, select ion); 

2 1072 — 

2 1075 — WITH thisBoxSelection DO 

2 1074 1- CASE cmdPhase OF 

2 1075 — doPhase, redoPhase: 

2 1076 — Kind :■ nothingKind; 

2 1077 — undoPhasa: 

2 1078 — Kind :■ boxSel ect ionKind; 

2 1079 -1 END; 

2 1080— boxVieu. Inval Box( SELF. box. shapeLRect}; 

2 1081— ■ , 

2 1082 — self, imaoe. V leu. panel, select ioa Ma rkChanged; {allou this document to be saved] 

2 1085 — {$IFC fTrace}EP; ISENOC) 

2 1084 -0 A END; 

2 1085 — 

2 1086 — END; 

2 1087 — 

2 1088 — 

2 1089 — 

2 1090 — METHODS OF TMoveBoxCad; 

2 1091 — 

2 1092 — A FUNCTION TMoveBoxCad. CREATE( object: TObject; ItsHeap: THeap; ItsCmdNumber TCmdNutnber; 

2 1095 — itsVieu: TBoxVieu; itsBox: TBox; itsHOffset. itsVOffset: LONGINT) 

2 1094 — : THoveBoxCMd; 

2 1095 0- A BEGIN 

2 1096— ($IFC fTrace)BP(10);{$ENDC) 

2 1097 — IF object -NIL TfCN 

2 1098— Ob ject :- NewObject( ItsHeap, THISCLASS); ,^_ ,..,>, 

2 1099— SELF :- TMoveBoxC«d(TCoewind.CREATE( Ob ject. ItsHeap, ItsCiadNuiBber. itsVleu, TRUE, reveal All)); 

2 1100 — WITH SELF DO 

2 1101 1- BEGIN 

2 1102— hOffset :■ itsHOffset; 

2 1105 — vOffset : ■ ItsVOf fset; 

2 1104 — movedBox :■ itsBox; 

2 1105 -1 END; , 

2 1106— {JIFC nrace)EP;{$ENOC) 

2 1107 -0 A END; 

2 1108 — 

2 1109 — 

2 1110 — rSIFC fDebugMethods} ■ , , ^^..s. 

2 1111 — A PROCEDURE TMoveBoxCwdFiel d${ PROCEDURE Fiald(naiiieAndType: S255)); 

2 1112 0- A BEGIN 

2 1115 — TCo(MnandFieId$( Field); 

2 1114— F lei cK'hOf fset: LONGINT'); 

2 1115— Fieldf'vOffset: LONGINT); 

2 1116 — F iel d( ' iiovedBox: TBox'); 

2 1117 -0 A END: 

2 1118 — {SENDC} 

2 1119 — 

2 1120 — 

2 1121 — A PROCEDURE THoveBoxCmd. Perfon«( CBdPhase: TCadPhase); 

2 1122 — VAR diffLPt: LPoint; 

2 1125 — 

2 1124 0- A BEGIN _ , 

2 1125 — {$IFC fTrace)BP(12);{$Ef©C} ^ ^ . ^ .. _. ^ i 

2 1126 — {Do nothino on the doPhase. since the box has already been moved } 

2 1127 — IF cmdPhase <> doPhase THEN 

2 1128 1- BEGIN 

2 1129 — {$H-] WITH SELF DO 

2 1150 2- CASE c«dPhase OF 
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2 1151 — r»doPh«$«: 

2 1152 -- S«tLPt(dlfnJ»t. hOffs»t, vOffs«t): 

2 1155 — undoPhtsft 

2 1154 — S«tLPt(dlffLPl, -hOffs«t, -vOffs«t); 

2 1155 -2 {$H*1 END; 

2 1156— SELF. •ov»dBox.t1oveBox(TBoxVi*u( SELF. i«ag«), diffLPt); 

2 1157 -1 END; 

2 1158 — 

2 1159 — sal f, iimg*. vlau. parwl. scltct ioa rtarkChang«d; fallou this document to be saved} 

2 1140 -- {$IFC nracelEP; ISENDC} 

2 1141 -0 A END; 

2 1142 — 

2 1145 — ENO; 

2 1144 ~ 

2 1145 — 

2 1146 — 

2 1147 — METHODS OF TBoxProcess; 

2 1148 — 

2 1149 — A FUNCT ION TBoxProcess. CREATE: TBoxProcess: 

2 1150 0- A BEGIN 

2 1151 — {$IFC nrace)BP(ll); fSENOC) 

2 1152— SELF :> TBoxProcess(TProcess. CREATE(NeuOb1ect(aialnHeap, THISCLASS), nainHeap)); 

2 1155 — {SIFC nrace)EP; {SENDC} 

2 1154 -0 A ENO; 

2 1155 — 

2 1156 — 

2 1157 — A FUNCTION TBoxProcess. NeuDocttanaQer( vol umePre fix: TFilePath; openAsTooI: BOOLEAN): TDocHanager; 

2 1158 0- A BEGIN 

2 1159 — {$1FC fTrace)BP(ll); {SENDC} 

2 1160— NeuDocHanager : - TBoxDocnanager, CREATE(NIL, nainHeap, volumePref ix); 

2 1161 — ISIFC fTrace)EP: {SENDC) 

2 1162 -0 A ENO; 

2 1165 — 

2 1164 — END; 

2 1165 ~ 

2 1166 — 

2 1167 — 

2 1168 — METHODS OF TBoxDocHanaoer, 

2 1169 — 

2 1170 — A FUNCTION TBoxDocManager. CREATE( object: TObject; itsHeap: THeap; ItsPathPref ix: TFilePath) 

2 1171 — : TBoxDocHanaoer, 

2 1172 0- A BEGIN 

2 1175— fSIFC fTrace}BP(ll);{$ENDC) 

2 1174 — IF oblect • NIL THEN 

2 1175 — object ;- NeuObject( ItsHeap, THISCLASS); 

2 1176— SELF :• TBoxDocManagerfTDochanaoer. CREATE{ object, itsHeap, itsPathPrefix)); 

2 1177 — I$IFC rrrace)EP; {SENDC) 

2 1178 -0 A END; 

2 1179 — 

2 1180 — 

2 1181 — A FUNCTION TBoxDocManager. NeuWindou(h«ap: THeap; wngrlD: TUindouID): TUindou; 

2 1182 0- A BEGIN * 

2 1185 — ($1FC nrace}BP(ll);{$ENOC} 

2 1184— Neulilindou :« TBoxUindou. CREATE(NIL, heap, umgrlD); 

2 1185 — {$IFC nrace)EP; (SENDC) 

2 1186 -0 A END; 

2 1187 — 

2 1188 — END; 

2 1189 — 

2 1190 — 

2 1191 — 

2 1192 — METHODS OF TBoxUindotr, 

2 1195 — 

2 1194 — A FUNCTION TBoxUindou. CREATE{ object: TObject; itsHeap: THeap; itsUmgrlD: TUindouID): TBoxUindou; 

2 1195 0- A BEGIN 

2 1196— (JIFC nface}BP(10);{$ENDC) 

2 1197 — IF object - NIL THEN 

2 1198 — object :■ NeuOb1ect( itsHeap. THISCLASS); 

2 1199— SELF :■ TBoxUindeuf TUindou. CREATE! object, itsHeap, itsUmgrlD. TRUE)); 

2 1200 — [$IFC nrace}EP; {$£NDC) 

2 1201 -0 A END; 

2 1202 — 

2 1205 — 

2 1204 — A PROCEDURE TBoxUindou. BlankSt at ionery; 

2 1205 — VAR vieuLRect: LRect; 

2 1206 — panel: TPanel; 

2 1207 — boxWleu: TBoxVieu; 

2 1208 — aSelectiorv TSelection; 

2 1209 0- A BEGIN 

2 1210— {$1FC fTr»c«)BP{10);($ENOC] 

2 1211— panel :• TPanel. cfeATE( NIL, SELF. Heap. SELF, 0, 0, [aScroll. aSpIitJ, (aScroU. aSplitI); 

2 1212 — 

2 1215 — Set LRect (vieuLRect, 0, 0, 5000, 5000); 

2 1214— boxVieu :- TBoxVieu. CREATE( NIL. SELF. Heap, panel, vieuLRect); 

2 1215— boxUieu. InltBoxList(^LF. Heap): 

2 1216 — 

2 1217— {$IFC fTrace)EP. {$ENOC) 

2 1218 -0 A END; 

2 1219 — 

2 1220 — 

2 1221 — A FUNCTION TBoxUindou, NeuCoHnnd(cMfl«uNber. TOedNuMber): TConmand; 

2 1222 0- A BEGIN 

2 1225— {$1FC fTrace)BP(ll);C$ENOC) 

2 1224 — 

2 1225 1- CASE cmdNmnber OF 

2 1226 — uClearAIl: 

2 1227 — NeuCoomand :• TClearAlICiad. CREATE(NIL, SELF, heap, cmdNumber. 

2 1228 — TBoxV ieu{ SELF. selectPanel. V leu)); 

2 1229 — 

2 1250 — OTHERWISE 

2 1231 — NeuComnand :• SUPERSELF. NeuCoflmand(caidNuinber); 

2 1252 -1 END; 

2 1255 — {$IFC nracejEP; (SENDC) 

2 1254 -0 A ENO: 

2 1255 — 

2 1256 — 

2 1257 — A FUNCTION TBoxUindou. CanOoCo«and(c«dNu«ber TCadNuafcer VAR check It: BOOLEAN): BOOLEAN; 

2 1258 0- A BEGIN 

2 1259— f$IFC fTrace)BP{ll);[$ENOC) 

2 1240 1- CASE cmdNunber OF 
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2 1241 — uClMrAll: 

2 1242 — CanOoCoMMnd : • TRUE; 

2 1243 — OTHERWISE 

2 1244 ~ CanOoCoMMand :- SUPERSELF. C«nOoCo«imand{ciiKtNufflb«r, check It); 

2 1245 -1 , END; , , 

2 1246 ~ {$IFC nr«c»)EP; (SENOC) 

2 1247 -0 A END; 

2 1248 — 

2 1249 — END; 

1 501 — 

1 502 — END. 
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